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Preface 



This publication is a guide to the facilities of the ibm 
System/360 Time Sharing System for the user of ibm 
FORTBAN IV. It is divided into three parts. 

Part I is an introduction to the ibm System/360 Time 
Sharing System, directed to the user of the Fortran iv 
language. It contains basic information needed for ef- 
fective use of the system and all of the information 
needed for effective use of Part II of this manual. 
Readers already familiar with the time-sharing system 
might profitably scan Part I and go directly to Part II. 

Part II is a set of annotated examples. They begin 
with fundamental operations, such as logging on, and 
in succeeding examples progress to increasingly sophis- 
ticated concepts. The examples reproduce and com- 
ment on the user-system dialog as it would appear 
at a terminal with the exception that specific system 
response messages are not identified. The examples 
may be read for instruction; they may also be used as 
models for accomplishing common tasks. 

Part III is a set of appendixes containing reference 
material for users who may need detailed information 
about the system. 

Much of the material in the introduction and the 
appendixes duplicates or summarizes information in 
the examples ( Part II ) and other tss/360 publications. 
Some material is unique, such as Appendix C, which 
gives guidelines for efficient programming and a dis- 
cussion of the effects of compiler optimization on the 
use of the program control system ( pes ) . 



Pierequisife Knowledge 

Readers should be familiar with the ibm Fortran iv 
language, since this book does not describe the lan- 
guage, but rather describes the use of the language in 
the TSS/360 system. 



The FORTRAN user will find the language specified in 
these publications: 

IBM System/360 Time Sharing System: IBM FOR- 
TRAN IV, GC28-2007 

IBM System/360 Time Sharing System: FORTRAN 
IV Library Subprograms, GC28-2026 

If additional knowledge of the time-sharing system 
is needed, the following publications should be re- 
ferred to: 

IBM System/ 360 Time Sharing System,: Concepts 
and Facilities, GC28-2003, provides a broader 
system survey than does this manual's introduc- 
tion. 

IBM System/360 Time Sharing System: Command 
System Users Guide, GC28-2001, describes the 
entire command language, including the program 
control system. 

IBM System/360 Time Sharing System: System Mes- 
sages, GC28-2037, lists all of the messages pro- 
duced by the system. 

IBM System/360 Time Sharing System: Terminal 
Users Guide, GC28-2017, gives details of the 
facilities and operations of the various terminals 
supported by tss/360. 

IBM System/360 Time Sharing System: Linkage 
Editor, GC28-2005, describes the linkage editor. 

FORTRAN programmers who wish to use assembler 
language subroutines will need to be familiar with: 

IBM System/360 Time Sharing System: Assembler 
Language, GC28-2000 

IBM System/360 Time Sharing System: Assembler 
User Macro Instructions, GC28-2004 
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Part h Introduction 



In the Time Sharing System/360 you can run a pro- 
gram conversationally: you and the system can ex- 
change information during the entering and execution 
of your program. 

To compile a program conversationally, you enter it 
at a typewriter-like terminal. The system analyzes each 
program statement as it is entered. If the system finds 
an error, it tells you so and offers you a chance to cor- 
rect it. When the whole program has been entered, it 
is analyzed as a whole, and again you can correct any 
errors the system may find. Then you can execute the 
program and monitor its progress. For example, you 
can intervene during execution to check on the current 
value of a variable, or leave a flag to the system to 
stop execution should a specified condition arise. You 
can even make temporary patches to correct program 
troubles. 

You can also run a program nonconversationaUy — 
for instance, when the program has been checked out 
and you know it will run satisfactorily, or when you 
cannot stay at the terminal to converse with the sys- 
tem. Nonconversational (background) processing in 
TSs/360 works much like batch processing in other ibm 
systems. 

You can run in mixed mode — that is, you can start 
a program conversationally and switch to noncon- 
versational processing. Once a program is running 
nonconversationaUy, however, you may not switch 
back to conversational processing. 



The Sysfem 

TSs/360 is a special set of programs that has been de- 
signed to make it easier for you to use a computer: 

• A supervisor program controls the overall operation 
of the system, and provides the time sharing en- 
vironment that lets a number of users employ the 
system concurrently. 

• A group of service routines perform program control 
and data management functions for each user, as 
well as for the system. 

• A third set of programs allows you to compile and 
develop your problem programs. 

This publication explains how to use these programs, 
without involving you in their structure or their de- 
tailed internal operations. 



Idenfifying Vow to the System 

Before you first use tss/360 you must be granted access 
to the system by either your system administrator or 
your system manager.^ They, in effect, join you to the 
system by storing the following information about 
you: 

• User Identification (userid) — a code that uniquely 
identifies you to the system. 

• Password — a code word used in validating your 
attempt to get on the system under the above userid. 
The password is a further protection against un- 
authorized use of the system or unauthorized use of 
your data sets or charge number. 

• Charge Number(s) — account number (s) against 
which your use of the system is charged. 

• Priority — a code indicating the relative priority of 
your work in the system. 

• Primlege Class — a code identifying you as a user, 
i.e., an individual who can employ the special set of 
commands reserved for users (as opposed to the 
commands reserved for, say, the operator ) . 

From the information supplied by your manager or 
administrator, the system can recognize you, and 
validate your use of the system when you wish to be- 
gin processing. This information remains in the system 
until your system manager or administrator withdraws 
your right to use the system. 

Conversational Use of the Systenn 

In conversational processing, you communicate with 
the system by means of a terminal. The terminal is a 
typewriter-like device. One type, the ibm 2741, is an 
IBM Selectric typewriter specially equipped for termi- 
nal use; another type, the ibm 1050 System, can in- 
clude both a typewriter and a card reader. With the 
1050 you can enter input into the system via the key- 
board or the card reader. Your terminal may be lo- 
cated at the computer installation or at a remote loca- 
tion. In any event, all terminal operation is much the 
same : you enter a command directing the system to do 
certain work, the system responds, you enter another 
command, etc. You don't have to be an expert typist; 
correcting typing errors is a straightforward process, as 
shown in the examples. 



^If you are interested in additional details on system management and ad- 
ministration, refer to Manager's and Administrator's Guide. 
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You will find that you do not require extensive com- 
puter training to use tss/360. You must know three 
things: 

• The procedure for setting up your terminal for oper- 
ation. This is a matter of setting a few switches. This 
manual does not discuss the procedures and settings 
for the various terminals — see Terminal Users 
Guide or ask someone to show you the correct pro- 
cedure for setting up your terminal. 

• The TSS/360 FORTRAN IV Language, the lan- 
guage in which you express your problem-solving 
procedure. This language is used for illustration 
throughout this publication; it is explained in detail 
in IBM FORTRAN IV. In tss/360, you also have a 
variety of mathematical and service subprograms 
available for your use. These are described in FOR- 
TRAN IV Library Subprograms. 

• The TSS/360 Command System, involving the com- 
mands you will use to converse with the system. 
Almost every command is shown in the examples 
in Part II of this manual. Many typical uses are 
shown, but not every use of every command. Should 
you need more information than is in the examples 
or the appendixes, consult Command System Users 
Guide, which describes the commands in detail. The 
commands are explained briefly at the end of this 
introduction. 

In conversational mode, you engage in dialog with 

the system. The system responds to your requests, 

confirms actions, and informs you of any errors. 

Complete details on system response messages are 

presented in the System Messages publication. 

The work done between logging on and logging off 

is called a task. You may run one or many programs as 

part of a single task. The work you do on a task at a 

terminal is called a terminal session. Since a task may 

begin conversationally but end nonconversationally, 

task is not necessarily synonymous with terminal 

session. 

Conversational Task Initiation 

You use the following procedure to initiate conversa- 
tional processing: 

1. Make certain the terminal is set up for operation 
under tss/360 (proper switch settings, power on, etc.) 

2. Either: 

a. Dial up the system, if it has a telephone-like 
modulator /demodulator (modem). The phone 
number is determined by your installation. 

b. Press the attention button on the terminal, if the 
terminal is "hardwired" (i.e., directly connected 
to the computer). 



When you press the attention button or dial up the 
system, you begin the log-on process and set up a 
conversational task in the system. If you have been 
granted access to the system, and identify yourself 
properly in the logon command in accordance with 
the parameters set up for you at join time, the system 
completes the initiation of your task. (If you cannot 
log on, you should notify your system manager or 
system administrator.) 

SYSm and SYSOUT 

From your point of view, initiating a task means that 
the system has prepared itself to perform work for you. 
You can now converse with the system as if you alone 
were using it. You have unique communication paths 
in the system, permitting it to read from and write to 
your terminal independently of all other tasks. You 
can thus define work for the system by issuing com- 
mands, and the required programs and data will be 
loaded into main storage and processed, as you spec- 
ify, regardless of the work other users may be simul- 
taneously specifying. 

Your tasFs input to the system contains the se- 
quence of commands you issue; this sequence is called 
SYsix. Your system input stream can also include data 
to be prestored in the system, or actual input records 
to an executing program. When you are in the con- 
versational mode, your terminal is your task's sysin 
device. Your task's system output stream, called sys- 
OUT, is directed to the terminal. It consists basically of 
system messages; it may also contain output from your 
programs if you so choose. Because the terminal is thus 
a combined sysin/sysout device, the terminal listing 
will contain a mixture of the two system streams. 

You and every other user have your own unique 
sysin/sysout. You also have the following: 

• Your own virtual storage space 

• A scheduled time interval in which your task is 
executed 

• Your own catalog 

Virtual Storage 

In TSs/360, you are not directly concerned with the 
physical limitations on main storage. Special address- 
ing techniques, internal to the system, provide you 
with a storage capacity theoretically equal to the total 
range of addresses that can be specified in an instruc- 
tion. The system's addressing techniques effectively 
combine sections of main and secondary storage, 
creating a virtual storage area in which your task 
operates. Your installation will inform you of specific 
virtual storage limits on your problem programs and 
data. 

Although you have large virtual storage capacity, 
efficient programming is important; performance can 



be degraded by excessive demands on the available 
storage at an installation. 

When you log on, the system routines essential to 
your task are loaded into your virtual storage. These 
routines are a permanent part of your virtual storage, 
i.e., they remain there throughout your task. 

You obtain other system routines by issuing com- 
mands and executing programs. These routines are 
loaded into, and unloaded from, your virtual storage 
on a demand basis. 

You control the residence in your virtual storage of 
the linkage editor and your problem programs, ( Refer 
to the LOAD, LNK, RUN, CALL, GO, and UNLOAD com- 
mands in the table at the end of this introduction.) 

An important aspect of tss/360 virtual storage man- 
agement is the protection it provides. Each user has 
his own storage space for program execution. Another 
user cannot interfere with your executing programs, 
nor can you interfere with his, because neither of you 
can refer to the other's virtual storage space. 

Sharing Time 

Others may be using the system at the same time you 
are. The system appears to be serving each of you 
exclusively because it is repetitively giving each of you 
a time slice, or an interval, during which all the facili- 
ties required by your task, including computer execu- 
tion time, are in fact exclusively yours. Unless the sys- 
tem is overloaded, its speed will allow it to do your 
work as well as that of other users without the in- 
tervals being apparent to you. 

TSS 360 can also operate wdth several terminals 
sharing a single task. This mode of operation is not 
discussed in this publication; refer to IBM System/360 
Time Sharing System: Mtiltiterminal Task Program- 
ming and Operation, GC28-2034 for a description. 

System Catalog 

Conceptually, the system catalog is very much like the 
catalogs used in libraries. It is an index that points to 
items that reside elsewhere. You use it initially to re- 
cord the location of data, so that you don't have to 
keep track of where the data is located and so that you 
can later retrieve the data by its name alone. The 
structure of the catalog protects your data sets from 
being accessed by other users, unless you specifically 
permit others to share them. 

To understand the structure and significance of the 
system catalog, you must become familiar with the 
basic concepts of data set, data set name, and data set 
residence. 

A data set is a named collection of one or more rec- 
ords. For example, all of the following are data sets: 
a source program, a library of compiled programs, the 



collection of Fortran input records needed by a pro- 
gram. 

A data set name uniquely identifies a data set. It is in 
the form of one or more symbols separated by periods. 
For example, rocket.testfire.aprili4. Each symbol 
can consist of from one to eight alphameric characters, 
the first of which must be alphabetic. Starting from the 
left, each symbol of the name is a category within 
which the next symbol is a unique subcategory. A 
fully qualified name identifies an individual data set. 
A partially qualified name identifies a group of data 
sets. For example, if ROCKETS.TESTFmE.APRn.i4 is a 
fully qualified data set name, rockets and rockets. 
TESTFiRE are partially qualified names identifying 
groups of data sets, one of which is rockets.testfire. 
APRIL 14. The group rockets. TESTFmE is a subgroup of 
rockets. 

For example, examine the gross structure of the sys- 
tem catalog illustrated in Figure 1, and note the fol- 
lowing: 

1. The system catalog consists of a master index and 
sets of subordinate catalog entries. It is, in effect, a 
collection of separate catalogs. The system has its 
own catalog and each user has his own catalog. 

2. The various catalogs are an index of the data sets 
associated with them. Data sets that are to be cata- 
loged must reside on one or more direct-access or 
magnetic tape volumes. A volume can be a remov- 
able disk pack or a tape reel. Some direct-access 
volumes are public, meaning that they are perma- 
nently mounted while the system is running, and 
they can be accessed by all users. Some direct- 
access volumes, and all magnetic tape volumes are 
private. This means that they are not mounted on 
the system until needed, that they are demounted 
when no longer needed, and that they can be used 
by only one user at a time. Data sets on either pub- 
lic or private volumes can be cataloged. 

When the system was generated at your installation, 
all catalog entries for system data sets were created, 
including syslib, which contains the system routines 
that are loaded on demand — for example, the for- 
TRAN-supplied subprograms. 

Your master index entry in the system catalog is 
created when your system manager or administrator 
joins you to the system. At that time, your user identi- 
fication is placed in the master index and another 
special entry is created in your catalog for a data set 
called your userlib. Your userlib is your own private 
library for object programs. 

Except for userlib, you control all entries in your 
catalog by the way you name your data sets and by 
the way you use the cataloging and uncataloging fa- 
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cilities of the system. Some of these facihties are for 
entering, removii^g, and renaming catalog entries. 
Others are for indicating which data sets can be 

shared by others and to what extent. These facihties 
are described later in this section. The key points here 
are these: 

• Your catalog exists in the system from the time yon 
are foined until the time your access privilege is 
withdrawn. 

• Cataloging data sets is the only means of retaining 
data sets on public volumes from session to session. 
It also simplifies later use of those data sets, 

• You can share your programs and data with others 
or not as you wish. 

Terminal Session Activity 

Snfering Commands 

To enter commands, you simply type in the required 
characters and press the return key on the terminal. 
What you type in, of course, depends on what you 
wish to do and the content of the commands required. 
Each command has an operation part specifying what 
is to be done (as mun), and each may have one or 
more operands that qualifies the operation (as loc= 
followed by the name of your object program, say 
MAIN. This qualifies the operation to mean "execute 
my object program, main" ) . 



If you enter an incorrect command, the system 
issues a message which informs you of the error. The 
system also issues messages that give you information 
helpful in assessing the system's activity relative to 
your task. System messages are issued automatically 
as the conditions causing them arise. 

Compiling and Running a Program 

Suppose you wanted to simply compute sine A, for a 
single value of A, and print the result at the termi- 
nal. You might design the following source program to 
do this: 

A=.2 

SINE=,SIN(A) 
10 FORMAT (THE SINE OF' ,F7.4, IS* ,F7.4) 
WRITE(6,10)A,SINE 
STOP 
END 

You could then compile and run that program by 
the conversational task illustrated in Figure 2. The 
LOGON and logoff commands are used to initiate and 
terminate the task, ftn initiates Fortran compiler 
processing. To control the compilation you specify a 
number of parameters: nam,e of the compiled program, 
listings you want, etc. The compiled program is auto- 
matically stored in your userlib as an object program 
module. You execute it by the call or run command 
to obtain your result. 
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System retrieves your 
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object program, exe- 
cutes it, and prints the 
result on your terminal: 
THE SINE OF 0.2000 IS 
0.1987. 




1. Issue a LOGOFF com- 


System terminates your 


Log off 


mand. 


task and releases your 
terminal. 



Figure 2. A Simple Compile and Run 



3. Specify the statements within your program at 
which execution is to be stopped or started. When 
program execution has been stopped, you may in- 
tervene, as described in items 1 and 2, before you 
direct resumption of program execution. 

4. Specify the statements within your program at 
which the actions described in items 1 and 2 are to 
be automatically performed. 

5. Obtain the values of your program's variables at a 
specified point in its execution, with the variables 
formatted according to their types. 

6. Establish logical (true or false) conditions that 
allow or inhibit the actions described in items 3, 

4, and 5. 

The use of Program Control System facilities does 
not impose any restrictions on your source coding. In 
general, the use of program control facilities will 
greatly simplify the preparation of source programs, 
because many functions previously source-coded can 
conveniently be made available after compilation, pes 
is discussed in greater detail in Appendix B. 



In TSs/360 your source programs can use many of the 
system-supplied subprograms. For example, in the pro- 
gram illustrated in Figure 2, you used the sin sub- 
program. These programs reside in syslib and are 
available during execution when your program in- 
vokes them. Similarly, you can design and compile 
your own function and subroutine subprograms, 
store them in your userub (or some other library) 
and use them during later program executions. 

Cliecfcffig Out and Modifying Programs 

The FORTRAN compiler includes conversational prompt- 
ing and diagnostic facilities that assist you in debug- 
ging your source program. It also includes optional 
facilities for storing and cataloging your source and 
listing data sets, and for including an Internal Symbol 
Dictionary ( isd ) in your object module. An isd allows 
you to make full use of the Program Control Sys- 
tem (pes). 

You can use pes commands and statements to per- 
form one, or any combination, of these: 

1. Bequest display of data fields and instruction loca- 
tions within your program, specifying these items 
by their symbolic names as used in the source lan- 
guage program. 

2. Modify variables within your program, specifying 
these variables by their symbolic names and speci- 
fying the new value for each variable. 



Planning Probtem Program Inpuf/Ovfpuf 

In most TSs/360 installations, a problem program does 
not communicate directly with unit record devices 
(card reader/punches and printers). You organize 
input/output data flow as follows: 

1. Prior to program execution, you store input data in 
the system on a direct-access device. If the data is 
the output of a previously executed program, you 
can simply write it on public storage during that 
program so that it will be retained for subsequent 
use. If the data involved is new input, you can pre- 
store it using the following facilities: 

• Text editor facilities 

• DATA command 

• Operator procedures, involving your card input 
deck or magnetic tape reel 

2. During program execution, you will generally read 
input data from the direct-access device on which 
you stored it; and you will wtote output data to a 
direct-access device ( for later actual output, follow- 
ing execution). However, in tss/360, you also have 
the following additional facilities for input/output 
during program execution: 

Input: You can read a record dynamically from 
your terminal, read input data from the system's 
tape devices; or set data in your program (based 
on program conditions ) if you like. 
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Output: You can \\rRiTE a record to your terminal, 
WRITE output data on magnetic tape; and pause 
in your program, print out data or a message at 
your terminal, and return control to the terminal 
for insertion of additional commands and then 
continue processing. 

You can also stop your program and display the 
final results of its computation. 

3. Following execution, you can print out or punch on 
cards the program output you stored on a direct- 
access device, using the print and punch com- 
mands, respectively. You can also produce a mag- 
netic tape for subsequent printing by issuing a 
Vinr (write tape) command. 

Since you can communicate with your programs 
during their execution, you can design programs that 
do not require use of conventional i/o devices; all i/o 
can be achieved via the terminal. For example, you 
can design your programs so that when predetermined 
events occur, intermediate results are printed out at 
your terminal. You can then decide how you want to 
proceed: supply additional or different data at that 
time; change the sequence of program execution; stop 
the programs; examine key final results prior to initia- 
ting their final printout; etc. 



Specifying TSS/360 Problem Program I/O 

In TSs/360, to specify problem program i/o activity, 
you must consider both of the following: 

1. Use of appropriate Fortran i/o statements in the 
source program to indicate the data transfer or i/o 
control functions. 

2. Use of (or omission of) ddef (define data) com- 
mands to identify the name, location, organization, 
etc., of the data sets associated with the Fortran 
i/o statements. 

Data Transfers: You use the Fortran read and 
write statements to transfer data to and from your 
program. You should regard a data set as a continuous 
string of data which you have subdivided for separate 
processing by your Fortran program; the subdivisions 
are termed Fortran logical records. Fortran logical 
records are defined by one of the following: 

1. A FORMAT statement and a list referred to by an i/o 
statement (formatted records). 

2. An i/o list appearing in an i/o statement that does 
not contain a reference to a format statement ( un- 
formatted records ) . 



3. A namelist name appearing in an i/o statement 
( namelist records ) . 

You define the overall relationship of a data set's 
records by specifying the data set's organization. (You 
do this in the ddef commands discussed later in this 
section.) In tss/360, there are two fundamentally dif- 
ferent types of data set organizations: virtual storage 
data sets and physical sequential data sets. 

Data Sets with Virtual Storage Organiiation 

Data sets with a virtual storage organization can re- 
side only on direct- access volumes. You process these 
data sets on the basis of the records they contain. Vir- 
tual storage data sets can have any of these specific 
organizations: 

1. Virtual sequential: This is the standard Fortran i/o 
data set organization; the term vs is used to describe 
it. In a vs data set, the order of the logical records 
is determined solely by the order in which the rec- 
ords were created. In creating this type of data set, 
you provide the system with a stream of records. 
The system organizes the data into pages, and stores 
the data set on a direct-access device. After the 
data set has been created, you can read back the 
records in the order in which they were created 
merely by requesting one record after the other, 

2. Virtual index sequential: A data set with this or- 
ganization is referred to as a vi data set. As a For- 
tran user, you will probably use \t data sets only 
when interfacing with programs written in assem- 
bler language that require this organization. In a 
VI data set, the records are organized in sequence 
based on a data key associated with each record. 
During Fortran program execution, you can create 
and read vi data sets sequentially, but you cannot 
use the random-access capabilities of this organiza- 
tion. 

There are two special types of vi data sets — line 
data sets and list data sets. A line data set is one 
that is organized by line number, where each line 
is a record and is prefixed with the line number as 
its key. Source programs are line data sets. You can 
inspect and display these data sets by line number 
using the line? command. Other commands enable 
you to effect replacements, insertions, and deletions 
on line data sets. Note: Records in a line data set 
must be variable-length (format V); fixed-length 
(format F) records are not permitted. 

A list data set contains the listings produced as 
output by the system's language processors; it is 
organized by line number, where each print line is 
a record and is suffixed with a line number as its key. 



In conversational mode, printing of language-proc- 
essor listings is not automatic; you can have a listing 
printed only if you issue a pbint command. 
3. Virtual Partitioned. A virtual partitioned data set, 
referred to as a vp data set, is used to combine in- 
dividually organized groups of data into a single 
data set. Each group of data is called a member, 
and each member is identified by a unique name. 
Program module libraries are a good example of a 
VP data set. Your userlib is organized this way, and 
the compiled program modules you store in userlib 
are its members. 

The partitioned organization allows you to refer 
to either the entire data set (via the partitioned 
data set's name) or to any member of that data set 
(via a name consisting of the name of the data set 
qualified by the member name in parentheses). 

The partitioned data set may be composed of 
vs or VI members or a mixture of both. Individual 
members, however, cannot be of mixed organiza- 
tion. 

Physical Sequenflal Data Sets 

Data sets with a physical sequential organization can 
reside on either direct-access or magnetic tape vol- 
umes. The logical records in these data sets have an 
organization which is determined solely on the basis 
of their position relative to the beginning of the data 
set. When these records are processed in tss/360, the 
block is used as the unit of transfer to and from the 
device involved. A block can consist of one or more 
logical records. Data sets with physical sequential or- 
ganization are called ps data sets. You will use ps data 
sets each time you process magnetic tape in your 
programs. Volumes containing data sets with ps or- 
ganization can be interchanged among tss/360 and 
IBM System /360 Operating System installations. 



Data Set Definition 

In a FORTRAN i/o statement, the data set referred to is 
identified by an unsigned integer constant or integer 
variable whose value may be any number from 1 to 99. 
The relationship between a data set reference number 
and the actual data set is provided in the ddef com- 
mand. This I/O technique provides you with a degree 
of device independence; you do not need to change 
your program if the residence of data sets it processes 
changes from one execution to another. 

The basic method used to identify Fortran data sets 
is illustrated in Figure 3. The system first relates the 
data set reference number of the read or write state- 
ment to the ddname operand of the corresponding 
ddef command. For Fortran data sets, the ddname 
operand of the ddef command is always of the form 
FTxxFyyy, where ft indicates Fortran, xx is the data 
set reference number, and yyy is a Fortran sequence 
number used to differentiate data sets, i.e., in a se- 
quence of data sets which are to be referred to by the 
same data set reference number during the course of 
program execution (at any one time, the data set 
reference number refers to one data set only). Having 
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GeneroHofi Data Groups 

The cataloging facilities of tss/360 provide an option 
that assigns numbers to individual data sets in a se- 
quentially ordered collection, thereby allowing you 
to catalog the entire collection under a single name. 
You can distinguish among successive data sets in the 
collection without assigning a new name to each data 
set. Because each data set is normally created from the 
data set created on the previous run, the new data set 
is called a generation, and the number associated with 
it is called a generation number. The entire structure 
of data sets of the same name is called a generation 
data group ( gdg ) . You can refer to a particular gener- 
ation by specifying, with the common name of the 
group, either the relative generation number or the 
absolute generation name of the data set. 
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Figure 3. Data Set Identification, FORTRAN Programs 
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found the corresponding ddef command, the system 
then obtains the name of the data set from the dsname 
operand of that ddef command. Other information in 
the DDEF command (or already in the system, if the 
data set is cataloged) is then used to determine such 
things as: data set residence, i.e., where the data set 
is (input data set) or is to be placed (output data 
set); organization of the data set; routines necessary 
to process the data set; etc. 

All object time Fortran data sets except those in 
SYSiN and sysout require a ddef command. In both 
conversational and nonconversational modes, if you 
omit a DDEF command normally associated with a read 
or WRITE statement, the system will default to sysin 
or sysout. There are also Fortran statements which 
automatically assume sysin or sysout (stop, pause, 
and several i/o statements from previously imple- 
mented FORTRAN systems that were retained in tss/360 
Fortran). In a conversational task, sysin and sysout 
involve your terminal. In a nonconversational task, you 
define the sysin data set ( or submit it to the operator ) 
and the system defines sysout. 

The ddef command has other uses besides defining 
the data sets used during execution of a program. 
You can also use it to define the data sets used by 
certain commands, to define job libraries, to define 
a special data set (called pcsout) for the dump pro- 
gram checkout command, and to concatenate input 
data sets (i.e., relate them so that several different 
data sets can be read in as if they were a single data 
set). 

Any DDEF command you issue during a task re- 
mains in force throughout the task, unless you enter 
a RELEASE command for that data set. The release 
command is the opposite of the ddef command: the 
ddef command sets up task control information for 
the data set; the release command removes that in- 
formation. 

The ddef commands used in a session or in a com- 
mand procedure need not be issued directly during 
the session or be included explicitly in the command 
procedure. One, or more, or all, of the ddef commands 
needed can be made available by using the cdd (call 
data definition ) command. 

The CDD command is used to retrieve one or more 
ddef commands from a data set; you must supply the 
name of the data set. If this is all you specify, the 
system assumes that you want to use all the ddef 
commands in the data set. If you want to use only 
selected ddef commands, you identify each by its 
ddname. You should prestore frequently used ddef 
commands in a data set and call them in this fashion 
wherever possible, cdd can be used in either conver- 
sational or nonconversational tasks. 



In a conversational task, the system analyzes the 
data set's requirements at the time the ddef command 
is issued. It will then attempt to allocate the required 
resources (and, for private volumes, issue any mount- 
ing messages that are required) at that time. If the 
required space cannot be allocated, or the specified 
volumes cannot be mounted, the system will inform 
you, thereby allowing you to proceed with other work. 

The DDEF command is illustrated in the examples, 
and is discussed in detail in Appendix E, 

Cataloging and Uncafaloging Data Sets 

You can catalog and uncatalog data sets in several 
ways. Sometimes cataloging is automatic; in other 
cases, you must issue a catalog command to catalog 
the data set. All data sets with virtual storage organi- 
zation that reside in public storage are automatically 
cataloged when they are created. 

The CATALOG command sets up the catalog entry for 
the named data set. For example, suppose you are 
user joHNDOE and you want to catalog a data set 
named eng.physics.test2. If you issue a catalog com- 
mand naming that data set, the system establishes en- 
tries in your catalog, as shown in Figure 4. 

1. From your user identification, the system locates 
your catalog in the system catalog (via the master 
index ) . 

2. It then sets up any indexes needed for each level 
of qualifier in your data set name. ( Some of these 
may already exist.) 

3. When it has established the lowest level index (in 
this case, test2), it records in the catalog the specif- 
ic volume on which the beginning of the data set 
is located. 

The CATALOG command can also be used to alter 
the entry of a previously cataloged data set; i.e., you 
can rename a cataloged data set. If you employ genera- 
tion data groups ( gdg ) , you must initially use the cata- 
log command to set up the structure for the gdg: 
name, number of generations to be retained, disposi- 
tion of old generations when the specified number of 
retentions is exceeded, etc. Then you can use the ddef 
command to define new data sets as generation levels 
of the gdg, or you can use the catalog command with 
the newname operand to rename an existing data set 
as a generation level. 

When you catalog a data set, you can specify either 
read-only or unlimited access. You can always erase 
your own data set, but if you have cataloged it with 
read-only access, you cannot write into it, thus ensur- 
ing against accidentally overlaying data. 

You can use the delete command to remove a 
catalog entry for a data set if: 
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Figure 4. Catalog Example 

1. You want to remove the catalog entry of a data set 
from the catalog without erasing the data set, and 
the data set resides on a private volume. 

2. You w^ant to remove the catalog entry of a data set 
you are sharing from your catalog ( because you no 
longer have a need to share that data set ) . 

The ERASE command can also be used for uncata- 
loging. ERASE removes the catalog entry, and erases 
the data set as well if it resides on a direct-access vol- 
ume. ( Erasing means making the storage space of the 
data set available for other use.) 

So that you can specify whether you want to be 
given one data set name at a time when you enter 
either the erase or delete command, provision is made 
to set the value of deprompt (a value contained in 
your User Profile ) to either yes or no. If the value was 
set to YES, and you specify a partially qualified data 
set name, you will be given one data set name at a 
time for disposition. If the value was set to no, all 
data sets grouped under this partially qualified name 
will be erased or deleted without individual presenta- 



tion. If you specify a fully qualified name, the data set 
will be erased or deleted no matter what was specified 

for DEPROMPT. 

You have the option in certain commands, as print 
and PUNCH, if a cataloged data set is involved, of speci- 
fying whether it is to be erased or not after the output 
operation. 

Using Sysfem Storage 

The system assumes that you want storage on a public 
volume unless you specifically ask for storage on a 
private volume. When it is necessary to retain the data 
sets in the system, you make the most effective use of 
tss/360 by storing your data sets on public volumes. 
Public volumes are always mounted and available for 
allocation to your task, within the limits of public allo- 
cation established for you by your installation. 

If you use private volumes, you may need to 
wait for devices to become available; in any case, you 
must wait for the operator to mount the volume on the 
device. Each time a request is made for a device on 
which to mount a private volume, the system must 
determine whether or not it can honor the request, 
based on the current requirements throughout the 
system for those devices. If the system cannot allocate 
a private device to your task, one of two actions 
occurs, depending upon the operational mode: 

• In a conversational task, if the system cannot al- 
locate the required space or if the required volumes 
cannot be mounted, the system issues a diagnostic 
message to you during the execution of the ddef 
command. The system cancels the ddef command, 
returns control to the terminal, and awaits another 
command. 

• In a nonconversational task, the system places your 
task in abeyance until all private devices required 
by the task are allocated. You must include a secure 
command to reserve all devices that will be required 
for private volumes during the execution of a non- 
conversational task. SECURE must appear immediately 
after the logon command, and only one secure com- 
mand is allowed for each task. The devices specified 
for private volumes will be reserved so that the task 
can be executed without waiting for i/o devices; any 
waiting that may be necessary to reserve the devices 
occurs at secure time rather than during execution 
time. The secure command is never used in a con- 
versational task; it is mandatory only in noncon- 
versational tasks that include references to private 
volumes. 

Protecting and Sharing Data Sets 

You cannot gain access to any data sets other than 
your own unless you have system authorization to do 
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so, or you have been given authorization to share thenn 
by another user who owns the data set(s) involved. 
A shared data set is one that is cataloged and for 
which the owner has issued a permit command. It be- 
longs to one user, but may be shared with other 
users on any of the following bases: 

1. Read-only access: The sharer may read the data 
set, but may not change it in any w^ay. 

2. Read-and-write access: The sharer can both read 
and write to the data set, but he may not erase it. 

3. Unlimited access: The sharer, in eflFect, can treat 
the data set as his own; he may thus even erase it. 

You issue a permit command to designate other 
users who may share your data sets, and to indicate 
the level of access those users may have. You also 
use the permit command to withdraw from previously 
authorized sharers the right to continue sharing your 
data. Each time you issue a permit command, your 
catalog is updated when the task is terminated by 
LOGOFF or ABEND. Information on w^ho can share which 
of your data sets is stored in your catalog. 

If you have been named in another user's permit 
command, you must issue a share command before 
you can actually access the data sets he has authorized 
you to use. To see how this command, is used, assume 
that a sharer's user identification is jmc200 and that 
he has been permitted to share one data set. The data 
set is owned by user rkpioo, and is cataloged by him 
under the fully qualified name eng. physics. comar. 
TEST2. Assume also that the sharer wants to name the 
data set eng.chem.notar.testi. He w^ould then issue 
the SHARE command shown at the top of Figure 5. In ^ 
response to that command, the system would search 
the owner's catalog to see if the prospective sharer is 
authorized. If he is not, the command is ignored; if he 
is authorized, the system places the owner's complete 
name for the data set in the sharer's catalog with a 
pointer back to the master index. Whenever the sharer 
subsequently refers to the data set by his name, the 
system locates the data set by the search procedure 
show^n on Figure 5. 

To be concurrently accessible by more than one 
task, a data set must be cataloged and must be a 
virtual storage data set (vs, vi, or vp). 

Maintaining Program Libraries 

A program in tss/360 can consist of one or more object 
modules. An object module is the output of a language 
processor or the linkage editor (exclusive of the list- 
ing). All programs in tss/360 are stored in object 
module form in program libraries, which are vp data 
sets. A program consisting of only one object module 
is stored entirely within one library; however, if a 
program consists of several object modules, those 



modules may reside in diflFerent libraries, depending 
on how you store them. 

There are four categories of program libraries : 

• System library (syslib) 

• User library (userlib) 

• User-defined job libraries 

• Linkage editor libraries 

sysub is accessible to all users on a read-only basis. 

userlib is the private library assigned to you when 
you are joined to the system. This library is auto- 
matically built for you and made a part of your cata- 
log by the system, userlib is thus available each time 
you log on. If you do not use job libraries in a task, 
all the object modules resulting from your use of 
the language processors are automatically placed in 
userlib. You may w^ish to restrict your userlib to ob- 
ject modules that you execute frequently or that you 
use frequently in the buildup of other object modules. 

The program library list is a defined hierarchy of 
program libraries. It is initialized at log-on time, and at 
that time consists of userlib and syslib. The library 
at the top of the list ahvays automatically receives all 
object modules resulting from language processing. 
As noted above, if no job libraries are defined, the 
library at the top of the list is always userlib. How- 
ever, you can specify that a job library be added to 
the program library list to receive the output of the 
language processors. You do this by issuing a ddef 
command defining that job library and containing 
the OPTION ==joblib parameter. When this command 
is executed, the name of that job library is added to 
the top of the program library list. That library then 
receives all subsequent output of the language proc- 
essors until another job library is defined (and it is 
placed at the top of the list), or until a release com- 
mand is issued for the first job library. The pod? com- 
mand can be used to obtain a list of member names, 
alias ( entry point ) names, and other member oriented 
data from the task's userlib and such cataloged job 
libraries as have been established by the user. 

In addition to using the program library list to store 
object modules, the system also uses this list to control 
its order of search when looking for object modules 
that must be loaded at execution time. The library at 
the top of the list is always searched first, then the 
next-to-the-top library, etc.; then, userlib and, finally, 
syslib. By using the linkage editor, you can move ob- 
ject modules from one library to another. 

Other user-defined libraries may be defined by ddef 
commands that omit the joblib parameter. They are 
not placed on the program library list and cannot be 
loaded. They are used principally with the linkage 
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Figure 5. Sharing of Cataloged Data Sets 
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editor, (Refer to Linkage Editor for an explanation 
of linkage editor library control. ) 

Copying, Modifying, and Erasing Data Sets 

You can use the cds command to make a copy of any 
data set ( or any member of a partitioned data set ) to 
which you have access except data sets whose records 
are in undefined format (see Appendix E), such as 
program module libraries. You can also use the com- 
mand to renumber the lines of a Hne data set as it is 
being copied. Both the original and copy data sets 
must be defined in your task. 

You can use the modify command to insert, delete, 
replace, or inspect records of a vi data set, or of a vi 
member of a vp data set. You have to identify the 
record to be modified (by its key or line number). 
You can review modifications, and play back corrected 
lines for confirmation of your changes. 

You can use the vv, vt, and tv commands to copy 
your data sets, depending on their origin and desired 
destination. The vv command causes a vam data set 
to be copied into public storage. The vt command 
causes a vam data set to be reproduced on 9-track 
magnetic tape. The tv command retrieves and \wites 
into public storage a data set previously written on 
9-track magnetic tape by the \nr command. 

You can use the erase command to erase data sets 
that you ow^n. If you are sharing someone else's data 
set, you can remove its entry from your catalog by 
issuing the delete command. 



Conversatronal Task Termination 

To terminate your conversational task, issue a logoff 
command. The system will then update its internal 
accounting tables reflecting your use of the system 
during the session. 

If you later want to communicate with the system 
again conversationally, you must again log on as de- 
scribed in the section "Conversational Task Initiation." 



Nonconversafional Use of the System 

There are many applications where you will not re- 
quire dynamic communication with the system or with 
your problem programs in order to obtain the prob- 
lem solutions you desire. 

Norrconversational Task Initiation 

Figure 6 illustrates the various ways in which you can 
use the system for nonconversational processing. 

You can issue the execute command in a conversa- 
tional task to initiate nonconversational tasks. The 
EXECUTE command names a cataloged command pro- 
cedure that is to be executed. The command pro- 
cedure functions as the sysin data set for the noncon- 
versational task. It must begin with a logon command; 
end with a logoff command; and, it must be pre- 
stored in the system by you so that it can be retrieved 
merely by its name. If private devices are required in 
the task, a secure command must immediately follow 
the logon command. 

You can issue print, punch, and ^^ commands in 
either a conversational or nonconversational task. 
These commands are, in eff^ect one-command-proce- 
dures. They initiate nonconversational tasks that trans- 
fer data betw^een a direct-access device and a printer, 
card punch, or tape unit, respectively. 

You can also have the operator initiate nonconver- 
sational tasks for you. You supply him wdth a card 
deck or magnetic tape; the contents of the deck or 
tape depend on what you want done: 

• If you want to enter data into the system for later 
use (i.e., prestore it) you prepare a card deck (or 
magnetic tape) with a command procedure of the 
following form: 



dataset descriptor card 
Data cards 
%endds card 



card images 



If you do this, the task set up by the operator will 
transfer data from the input medium to a direct-ac- 



In your conversational 
task. Issue: 

• BACK command 

• EXECUTE command 

• PRINT command 

• PUNCH command 

• WT command 



Nonconversaf ional Processing 



In your nonconversational 
task^ issue: 

• PRINT command 

• PUNCH command 

• WT command 



Have the operotor : 

• Issue RT command 

• Initiate card reodii 



Figure 6. Nonconversational Task Initiation 
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cess device and catalog it so that it is later available 
to you by its name. 

• If you want to enter a command procedure^ you 
prepare a card deck as follows: 

LOGON card 

Other commands & data cards 

LOGOFF card 

The task that is set up by the operator will execute 
the commands in the command procedure you have 
defined. 

In all of the ways in which a nonconversational 
task is initiated, the system action is basically the same: 

1. The request to set up the nonconversational task is 
enqueued and assigned a batch sequence number. 

2. The individual requesting the task (you or the 
operator) is sent the batch sequence number (to 
later permit that individual to cancel that task if 
he wants ) . 

3. The requested task is then executed when the re- 
quired system resources become available. 

Nonconversotional Commanc! Procedure Processing 

When you use the execute command to initiate a 
nonconversational task, the commands are taken one 
at a time from the cataloged command procedure 
(sYSiN data set) you specified. The system specifi:es 
the task's sysout. You can read sysin input in your 
programs, in a manner similar to conversational mode, 
if the data is properly positioned in the sysin data set. 
Similarly, you can write to sysout from your program. 
Because there is no prompting in nonconversational 
processing, you must specify every command com- 
pletely, you must take care to have your commands in 
proper sequence, you must include a secure command 
to obtain any devices needed for private volumes, and 
you must catalog any data sets you want to keep. 

In nonconversational mode, listings produced by 
language processors (by the Fortran compiler, the 
assembler, or the linkage editor) are written auto- 
matically on sysout unless you specify the listds 
option (in the ftn, asm, or lnk command) as "Y". 
If the LiSTDS option is "Y", the listing is put into the 
list data set, as in the conversational mode, and will 
not be printed until you issue a print command. 

Nonconversational Task Termination 

The execution of nonconversational tasks (except 
PRINT and punch) is terminated when their logoff 



command is executed. The system then automatically 
prints out the task's sysout data set. For nonconversa- 
tional tasks, the sysout data set consists of the com- 
mands from SYSIN that were executed, any data that 
your program writes to sysout, and the compiler-issued 
diagnostic messages (if no listings were requested). 

Tasks created by the print and punch commands 
terminate when the data transfer is completed. 

You can also terminate your nonconversational 
tasks by issuing a cancel command identifying each 
task to be terminated by its batch sequence number. 



Mixed Mode Use of the System 

You can begin a task at your terminal, and then issue 
a back command to have the tasFs execution com- 
pleted in the nonconversational mode. Before issuing 
the back command, you must have stored a sysin 
data set that is to function as the command procedure 
and, if desired, input data for the nonconversational 
portion of your task. You must also have issued ddef 
commands for any private volumes you may need. The 
sysin data set must not contain a logon command (be- 
cause you have already logged on), but it should end 
with a logoff command. 

When you issue a back command for a task, the 
system determines whether it can provide sufficient re- 
sources to continue your task nonconversationally. If 
it cannot, the system will reject your request, and you 
can try later. 

Once your back request is accepted, your terminal 
is inactive. You must then log on at your terminal 
again to initiate a new conversational task if you want 
to continue to use the terminal. 



Remote Job Entry 

The TSs/360 remote job entry feature makes high- 
speed printing and card reading available at locations 
outside the central computer installation. Each re- 
mote station has a card reader to accept input and a 
printer to produce output. 

A complete description of this facility is provided in 
IBM System/360 Time Sharing System: Remote Job 
Entry, GC28-2057. 



Part I: Introduction 13 



Command Directory 

Table 1 presents a guide to the commands of tss/360 
as presented in the examples and appendixes of this 
book. The commands are grouped by general function. 



For each command, a sample usage and a statement 
of its general effect are shown, along with the num- 
bers of all the examples in Part II in which this par- 
ticular command appears. 



Table 1. Command Directory 







SAMPLE 




mLUSTRATIVE 


FUNCTION 


COMMAND 


USAGES 


EFFECT 


EXAMPLES 




BACK 


BACK 

DSNAME=PROC12A 


Switches your conversational task to non- 
conversational mode. Here you specify 
PROC12A as the source of further commands. 


12 




CA 
CB 


CA 


SpecijRes that card input will follow. Causes 
SYSIN to be switched to the card reader. 
The A signifies that you want to convert card 
input from 1057 card punch code to 
EBCDIC. A CB would signify conversion 
from 029 keypunch code to EBCDIC. 


20 




CANCEL 


CANCEL 
BSN=0375 


Terminates execution of nonconversational 
task to which the system had assigned batch 
sequence number 0375. 


19,20 




EXECUTE 


EXECUTE 

DSNAME=:PROC12 


Requests the execution in nonconversational 
mode of a sequence of commands contained 
in data set PROC12. You may then continue 
in conversational mode at the terminal. 


12 


Task 
Management 


KA 
KB 


KB 


Specifies that keyboard input in folded mode 
will follow (i.e. the lower case characters a-z 
and 1 " ^ are to be translated into their upper- 
case equivalents (A-Z and $ # @). KA 
would specify that you want to use the full 
EBCDIC character set. 


20 




LOGOFF 


LOGOFF 


Notifies system that you want to terminate 
your task. The system may then query you 
regarding any uncataloged data sets. 


All but 
example 3 




LOGON 


ADUSERID, MYPASS*,, 
ADACCT29 


Identifies you to the system. You enter your 
identification, password, and account number. 


All 




PROCDEF 


PROCDEF 
ZLOGON 


Defines a procedure (ZLOGON) which is 
automatically executed each time you log 
on, prior to any terminal processing you may 
initiate. 


27 




SECURE 


SECURE 

(TAr=:l,9) 


Reserves devices for private volumes required 
for nonconversational tasks. This command at 
the beginning of your sequence of commands 
secures one 9-track tape unit. 


14,21 




TIME 


TIME 15 


Establishes the maximum amount of elapsed 
time that a task will be allowed to run. Here 
you have set a 15-minute limit on program 
execution time. 


2 




USAGE 


USAGE 


Presents totals of system resources used 
since LOGON and since you were joined to 
system. 


22 




CATALOG 


CATALOG 
DSNAMEr= 

RESULTOl, 
STATE =:N, 

ACCr=R 


Causes your physical sequential output data 
set RESULTOl to be cataloged. The N in- 
dicates that the catalog entry is new. The 
R indicates that you want to restrict access 
to the data set to a read-only. 


5,11,21,23, 
24 


Data Set 

Management 


COD 


CDD DDPACK, 
DDMAIN14 


Causes execution of the DDEF commands 
defined by the data definition name 
DDMAIN14, which you had stored in the 
data set DDPACK. 


14 




CDS 


CDS 

DSN AME 1 =: M YD AT A, 
DSNAME2=MYDATA1 


Copies the data set MYDATA, naming the 
copy MYDATAl. 


18 



14 



Table 1. Command Directory (cont. ) 



FUNCTION 


COMMAND 


SAMPLE 
USAGES 


EFFECT 


ILLUSTRATIVE 
EXAMPLES 




CLOSE 


CLOSE 


Closes data sets from the command level 
when normal processing has been interrupted 
and closure from the program level is difficult 
or impossible. 


17 




DDEF 


DDEF 

DDNAME=LIBDD, 

DSORG=VP, 

DS NAME = SCRATCH, 

OPTION =:JOBLIB 


Defines a data set for the current task. 
Every data set you use must be defined for 
the current task, even if previously cataloged. 
You assign LIBDD as the name of the data 
definition. The data set created by this DDEF 
is a virtual partitioned job library named 
SCRATCH. 


4, 6, 7, 8, 9, 
10, 11, 12, 

13, 15, 17, 

18, 21, 23, 
24 




DELETE 


DELETE 

DSNAMErzDATAS 


Removes the entry for the data set DATA5 
from your catalog. 


22 




DSS? 


DSS? PHI,SIGMA 


Causes printing of information about your 
data sets PHI and SIGMA. 


22 




ERASE 


ERASE 

DSNAMErr:SCRATCH 


Erases data set SCRATCH (releases direct- 
access storage for other use), and, if 
cataloged, deletes name from catalog. 


4, 5, 7, 8, 19, 
22 




EVV 


EW 

DEVICEr=2311, 

VOLUME=(123ABC), 

USERIDrzADUSERID 


Presents a private VAM volume to the sys- 
tem and catalogs the data sets on it. The 
volume is a 2311 with volume serial number 
123 ABC. The data sets are to be cataloged 
in user ADUSERID's user catalog. 






PCP 


PC? PHI,SIGMA 


Causes printing of limited information about 
your data sets PHI and SIGMA. 


22 


Data Set 

Management 
(Continued) 


PERMIT 


PERMIT 

DSNAME = DATA, 

STATE = N, 
ACCESS =:RO, 
USERID=ABPALID 


Permits the user with the user ID,ABPALID, 
to have read-only access to all of your data 
set whose left-most name qualifier is DATA. 
The N signifies that this command creates a 
new sharer's list, rather than updates on exist- 
ing list. 


18 




POD? 


POD? 

PODN AME = USERLIB 


Causes printout of information about each 
object module in your USERLIB. 


22 




RELEASE 


RELEASE 

DDNAME = MYDD 


Revokes the data definition established by 
a previously issued DDEF named MYDD. 


10,17 




SHARE 


SHARE 

DSNAME = MYDATA, 

USERID=ADUSERID, 

OWNERDSmDATA 


Creates an entry in your catalog for the data 
set named DATA, to which you are author- 
ized access when the owner issues a PERMIT 
command. 


18 




RET 


RET 

DSNAME=ALPHA, 

RET=(TCU) 


Modifies the RET field of the data set 
descriptor to specify that data set ALPHA 
be assigned to temporary storage with read/ 
write access and that it be deleted when it 
is closed. 


16 




TV 


TV 

DSNAMElz=COPYl, 
DSNAME2=COPY2 


Causes data set copied on 9-track as 
COPYl to be reproduced on direct-access 
storage in VAM format under the name 
COPY2. 


24 




VT 


VT 

DSNAMElrzORIGINl, 
DSNAME2=COPYl 


Causes VAM data set named ORIGIN 1 to 
be copied on 9-track magnetic tape as 
COPYl. 


24 




vv 


VV 

DSNAMEl = COPY2, 
DSNAME2=COPY3 


Causes VAM data set named COPY2 to be 
copied into public storage under the name 
COPY3. 


24 
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Table 1. Command Directory (cont 







SAMPLE 




ILLUSTRATIVE 


FUNCTION 


COMMAND 


USAGES 


EFFECT 


EXAMPLES 




CORRECT 


CORRECT 
Nl = 100, 
SCOL=8 


Causes the characters beginning with column 
8 of line 100 in the current region to be 
displayed for correction purposes. Characters 
are inserted, deleted or changed by keying in 
correction symbols directly beneath the af- 
fected character(s). 


26 




DISABLE and 


DISABLE 


DISABLE causes your modifications to the 


26 




ENABLE 


ENABLE 


data set to be provisional, pending execution 
of an ENABLE command. By issuing a 
STET command instead of an ENABLE, 
you would cause all modifications made after 
the DISABLE to be deleted. 






EDIT 


EDIT 
DSNAME=:EX26 


Invokes the facilities of the Text Editor. 
The operand identifies the data definition 
name associated with the data set which is to 
be edited. 


25,26 




END 


END 


Terminates processing of the Text Editor 
or the PROCDEF command. 


25,26 




EXCERPT 


EXCERPT 

DDNAME = NEW1, 
RNAMEr=REGION2, 
N1 = 600,N2=:I000 


Excerpts lines 600 to 1000 from REGION2 
of the data set associated with the data 
definition name NEWl and inserts them into 
your current region. EXCERPT, following a 
REVISE command, replaces a range of lines 
in the current data set; following an INSERT 
command, it adds to lines being typed in 
from the terminal. 


26 




EXCISE 


EXCISE 

Nl 1=0000200 


Deletes line number 0000200 from the cur- 
rent region. 


25 


Text 


INSERT 


INSERT 


Informs the system that you wish to insert 


25 


Editing 




0000400 


the following lines from SYSIN into the cur- 
rent region, placing them immediately after 
line 0000400. 






LIST 


LIST 

Nl = 100, 
N2=500 


Lines 100 to 500 of the current region 
are displayed. 


26 




LOCATE 


LOCATE 

STRINGmLINEF 


Searches the current region for the first 
occurrence of character string LINEF. When 
the string is found, the line containing it 
is displayed. 


26 




NUMBER 


NUMBER 

Nl=:300, 

N2=500, 

BASEmaOO, 

INCR=50 


Causes the lines within the current region 
to be renumbered. Nl and N2 define the 
range to be renumbered. The numbering 
will begin with 300 and increase in in- 
crements of 50. 


26 




POST 


POST 


Makes all previous editing changes permanent 
and puts Text Editor into disabled state. 


26 









making future changes reversible. 






REGION 


REGION 

RNAME=FIXA 


Used after invoking the Text Editor, this 
command identifies a region name to be as- 
signed a line or range of lines that are to be 
edited. 


25,26 




DATA 


DATA 

DSNAME=zPROC12A 


Creates a new data set named PROC12A. 
You do not need to issue a DDEF command 
for data sets created by a DATA command. 
By default, the data set organization is VS. 


12, 14, 16 


Data 


LINE? 


LINE? 


Causes printing of source lines 1200 to 1400 


9, 10, 16, 19 


Editing 




SOURCE.MAIN9, 
(1200,1400) 


from the specified line data set. 






MODIFY 


MODIFY 

SETNAME= 

SOURCE.MAIN4 


Permits you, with subsequent parameters, to 
insert, replace, review, or delete lines in a 
VISAM data set named SOURCE.MAIN4 
containing FORTRAN source statements for 
your program MAIN4. 


5 
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Table 1. Command Directory (cont.) 







SA^IPLE 




ILLUSTRATIVE 


FUNCTION 


COMMAND 


USAGES 


EFFECT 


EXAMPLES 




PRINT 


PRINT 


Causes the current generation of the listing 


2,4,5,6, 






DSNAME = 


data set LIST.MAIN2(0) to be printed on 


8, 10, 13, 






LIST.MAIN2(0), 


the high-speed printer. 


14, 19, 20 






ERASE=Y, 










PRTSP=EDIT 








PUNCH 


PUNCH 


Causes the 9th through the 88th characters 


19 


Bulk 




DSNAME= 


of each record of your source data set to 




Output 




S0URCE.MAIN19, 
STARTNO=9, 
ENDNO=88 


be punched. The first eight characters are 
the line number and input key. Punching is 
done in nonconversational mode when sys- 
tem resources are available. 






WT 


WT 

DSNAME = M220UT 


Causes the data set M220UT to be written 
on magnetic tape for subsequent off-line 
printing. 


22 




FTN 


FTN 


Activates the FORTRAN compiler. You name 


2, 3, 4, 5, 8, 






NAME=:MAIN2 


the object module to be produced in this 
compilation MAIN2. The system will assign 


13,20 


Program 






the name SOURCE.MAIN2 to the data set 




Management 






it creates containing your FORTRAN source 
statements. You have specified the default 
values for the remaining parameters by omit- 
ting them. 






AT 


AT MAIN.17, 
MAIN.9e(2) 


Causes message to be printed on SYSOUT 
when execution of your program MAIN 
reaches statement numbered 17 and when it 
reaches the first executable statement after 


10 









the one numbered 96. 






CALL 


CALL MAIN4 


Causes loading and execution of your pro- 
gram MAIN4 at the first executable state- 
ment. 


4,5,7,9,11, 
13, 14, 15, 
17,20,21,23 




DUMP 


DUMP MAIN10#C, 
MAIN10#P 


Causes a formatted dump of MAINlO's 
CSECT and PSECT. It will be written in 
the PCSOUT data set for later printing. 


10 




GO 


GO 


Causes execution of your current program 
to be resumed from the point of interruption. 


9, 10, 15 




IF 


AT 101; 
IF A>B; STOP 


Causes execution of your program to stop at 
location 101 if the expression A>B is true. 


10 


Program 
Control 


DISPLAY 


DISPLAY MAIN9.ALPHA, 
MAIN9.BETA 


Causes printout on SYSOUT of the current 
contents of data fields ALPHA and BETA 
in program MAIN9. 


9 




LOAD 


LOAD BLKDATA8 


Causes your block data subprogram to be 
transferred from your library to virtual stor- 
age. 

Causes subsequent references to symbols and 
statement numbers to be qualified by the 
name MAIN9. You can now write AB instead 
of MAIN9.AB, or 105 instead of MAIN9.105. 


8,10 




QUALIFY 


QUALIFY 

MNAME=iMAIN9 


9,10 




REMOVE 


REMOVE 2 


Deletes previously issued AT commands, or 
PCS statements containing AT commands. 
Here you specify deletion of the statement to 
which the system assigned the number 2. 


10 




SET 


SET 

BETA=1.0 


Sets value of BETA equal to 1.0. 


9,10 




STOP 


STOP 


Stops program execution and causes printing 
on SYSOUT of current instruction location 
and program status information. 


9 




UNLOAD 


UNLOAD MAIN15 


Removes the object module MAIN 15 from 
your virtual storage. 


15,21 
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Table 1. Command Directory (cont. ) 







SAMPLE 




ILLUSTRATIVE 


FUNCTION 


COMMAND 


USAGES 


EFFECT 


EXAMPLES 




DEFAULT 


DEFAULT 
DSORG=VS 


Sets the default value for the DSORG para- 
meter of the DDEF command to virtual 
sequential (VS). 


28 


User 

Profile 

Management 


PROFILE 


PROFILE 


Causes changes affected by DEFAULT and 
SYNONYM commands to become a perman- 
ent part of your user profile. 


28 




SYNONYM 


SYNONYM 

DOPROG = FTNPGM 


Establishes a synonym for the name 
FTNPGM. This module can now be caOed 
by the name DOPROG. 


28 
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Part II: Examples 



Part n is devoted to examples in which the dialog be- 
tween you and the system appears ( along with explan- 
atory comments ) as it would at the terminal. They are 
typical examples of system use. Unlike the sample 
programs in Appendix I, the examples in this section 
have not been system-tested. You may, therefore, 
observe minor differences between an example's de- 
scription in Part ii and the printout you obtain if you 
run the example itself. Use the examples, therefore, 
only as a learning device, and as models for designing 
your own work. 

Commands and concepts are presented in an ordered 
sequence: the most necessary and basic ones appear 
first, and are reviewed in subsequent examples. The 
examples are designed so that the beginner should read 
them in sequence. Those familiar with the commands 
and concepts can use the examples for reference. 

FORTRAN programs are shown where they are neces- 
sary to clarify use of the commands. Only the relevant 
statements are included. 



The system issues various types of messages at your 
terminal, as follows: 

• Prompting Messages — request that you supply 
command operands or other information. You are 
prompted only for omitted parameters that have no 
default option. 

• Response Messages — either inform you of actions 
the system has taken in executing a command or 
request additional information. 

• Diagnostic Messages — inform you of errors and 
prompt you for correction. 

In these examples, lines typed by the system are 
headed sys, lines you enter are headed you. Lines in 
which both the system and you enter something are 
headed s,y. Lines printed by your program are headed 
PGM, and cards entered from the terminal card reader 
and printed are headed cip, for "card image printout." 
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Example T: Inifiattng and Terminating a Conversational Task 

In this example, you initiate a simple conversational task and then terminate it. The commentary explains the 
keyboard entries required to converse with the system. 

To begin a conversational task, make sure that the terminal is properly prepared (refer to instructions 
provided by your installation or to the Terminal Users Guide ) . When you dial up the system or press the atten- 
tion button for the first time in your task, the system assumes a log-on operation and responds with the current 
date and time. You then enter all the log-on operands. 

During your dialog with the system, your commands are not entered into the system until you press the 
return key. 

YOU: (press the attention button or dial up system) 

From this point on, pressing the attention button halts current activity in most situa- 
tions. Consult Appendix F for the specific action taken in each situation, 

YOU: LOGON ABUSERID,MYPASS*, ,ADACCT24,A 

9,A,,P 

You must enter the entire LOGON command on a single line. While typing the LOGON 
operands, you realize that you have entered your charge number incorrectly. There- 
fore, you backspace three characters, move the paper up one line by hand to avoid 
overtyping, and reenter the corrected portion of the charge number. You then complete 
the LOGON operands. If you wanted, you could have cancelled the entire line by 
typing a pound sign (#) and immediately pressing the return key; then you would 
reenter the correct line. 

SYS: (responds with the current release-level of the system, the date, time, and task 

identification) 

You can now communicate with the system by entering commands. 



Sxpfanaiion of LOGON Operands 

ADUSERID 



First Operand — User IdenlWcation 

This operand is the full identification assigned to you when you were joined to the sys- 
tem. 



MYPASS* 



Second Operand — Password 

This operand is an installation-assigned code that provides protection against un- 
authorized use of your user identification. In conversational mode, you must supply 
a password if one has been assigned to you. 



Third Operand — Addressing 

Specifies whether 24-bit or 32-bit addressing is to be used for this task. If you default 
this operand, the installation default value will take effect. 



ADACCT29 



Fourth Operand — Charge Number 

This operand is the charge or account number that was assigned to you by your ad- 
ministrator. The first two characters of your charge number also identify your admin- 
istrator. 



Fifth Operand — Control Section Packing 

This operand specifies whether control sections are to be packed (i.e., not placed on 
separate pages), and the manner of packing to be used. The codes and their meanings 



20 



S,Y KB 



YOU: I'OGoff 
SYS: 



Code Meaning 

A Pack all control sections 

P Pack all prototype control sections (PSECTs) 

O Pack all control sections having neither public nor proto- 
type attributes 

X Pack all control sections except prototype control sections 

N No packing 

Sixth Operand — Maximum Auxiliary Storage 

This operand specifies the maximum amount of auxiliary storage to be allocated to your 
task; you default this operand and use the installation default value. 

Seventh Operand — Pristine Mode 

This operand allows you to log on with only the system-supplied defaults, synonyms, 
procdefs, and Character and Switch Table. Since you specified this operand as P, your 
user library is defined; if you had specified it as X, your user library would not be 
defined. 



After logging you on, the system prints a single underscore and then backspaces; this 
is the standard signal that it is ready to receive your next command on the same line. 
Here you specify that 3^ou want folded mode; that is that certain lower case characters 
(as a-z and ! "V) be translated by the system into their upper case equivalents (A-Z 
and $ * @, respectively). Thus, with KB, you no longer need to perform shifting 
operations. 

When you initiate a conversational task, the system automatically assumes folded 
mode; hence in this example you need not have specified KB. However, there are 
other character control commands, such as KA, which invoke EBCDIC mode at the 
keyboard. Thus, if you specify KA and at a later time in your session wish to return 
to folded mode, you must enter KB. 

Here vou decide to conclude vour session, so vou logoff. Note that LOGoff translates 
to LOGOFF. 



The svstem confirms vour LOGOFF command. 
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Example 2: Compilotion and Correction from the Terminal 



S,Y: FTN 1AME=MAIN2 



In this example, you type in the source statements of a short program and correct several errors while compiling 
the program. The compiled object module is stored in your userlib. The listings you select are printed as a sepa- 
rate taskj only if requested using the print command. After logging on, you issue: 

S,Y: TIME 15 

The TIME command establishes a period of time a task will be allowed to run in 
virtual storage. Yoo decide that 15 minutes will be adequate for your task and wish to 
be alerted when this interval is exhausted. TIME is thus useful in controlHng inad- 
vertent loops and other abnormal actions occurring in programs. 

This command activates the FORTRAN compiler. A compiled program is called an 
object module. You name the object module to be produced in this compilation MAIN2. 
The system creates a source data set, naming it SOURCE. MAIN2, which will contain 
your FORTRAN source statements as you entered at the terminal. 

Because SOURCE. MAIN2 is a line data set residing in public storage, it is auto- 
matically cataloged for you. Altliongh yon did not explicitly issue a DDEF command, 
there was an implied s\'stem issuanee of DDEF associated with your FTN command. 

The s>'stem also creates a list data set, named LIST.MAIN2, which will contain 
the listing of the objcc^t mod*:!t\ The NAME parameter is not defaultable, alihough you 
could enter the command as F FN MATN2. Tt is permissible to omit the NAME keyword. 
Note, ho\^'ever, that when yoii omit tlie kc^'word and have several operands to enter, 
you must spe(M*f\' the operands in the ordc^r in which they are syntactically defined. In 
this example \'0u specify the default values for the remaining parameters by simply 
omitting them, 

S,Y: 0000100 READ (5,10) A, B 
S,Y: 0000200 FORMAT (F6.2) 

The system prints line numbers. After each line number, vou skip a space and enter a 
FORTRAN statement. You do not have to follow the FORTRAN card format when 
entering source lines from the terminal. Skipping one space after the system prints the 
line number improves readability. Since the svstem regards any line with a C in column 
1 as a comment line, skipping a space also prevents lines such as C = A*B from being 
treated as a comment. When you want a comment line, you should not skip a space, but 
enter the C in column 1. 

SYS: 0000200 E *** FORMAT STATEMENT DOES NOT HAVE STATEMENT NUMBER. 

The compiler examines each statement for syntactical errors as soon as it is received. 
200 is the line number of the statement in error, E is an error level code, indicating a 
serious program error; the statement is ignored. Other error level codes are: 
W A warning of a possible problem; the statement is compiled as written. 
F Serious error; statement can only be partially compiled. 
A Compilation cannot be continued. 

See Appendix A for further details on compiler diagnostics. 

SYS: 0000200 FORMAT (F6-2) 

The system prints the line in error for yoiu review. 

S,Y: #200,10 FORMAT (F6.2) 

The system prints the number sign, #, after which you enter the line number of the 
line to be corrected, followed by a comma and the replacement line. There must be at 
least one space betw^een the statement number (10) and the rest of the statement. 

S,Y: #(press return key) 

Another correction or change or even insertion of an entirely new line could be made 
at this time. Since you wish to continue entering your program, you request the next 
line number by pressing the return key. 
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S,Y: 0000300 ATB = A * B 

S,Y: 0000400 WRITE (6,20) A, B, ATB 

S,Y: 0000500 STOP 

S,Y: 0000600 END 

SYS: 0000400 F *** 20 STATEMENT NUMBER USED AS FORMAT IS NOT DEFINED. 

After the END statement has been entered, the compiler diagnoses global errors, which 
are errors that involve more than a single statement. In doing so, it found an error. 



SYS: 
YOU: 



The system invites you to modify your source statements. 

You may reply yes (Y) or no (N). Here you reply yes and wait for the system to invite 
your modification. 



S,Y: #400, WRITE (6,10) A, B, ATB 
S,Y: #(press return key) 

While you are entering modifications, no error checking is done; however, the com- 
piler rescans the entire program when it recompiles after modifications are completed. 



SYS J 



The system continues compilation and informs you when finished. 



S,Y: PRINT MST.MAIN2(0) , ERASE=Y, PRTSP=EDIT 

The system will establish a nonconversational task to print the current generation of 
LIST.MAIN2. The current generation is specified by the (0) immediately after the 
generation data group name. The PRTSP operand is specified as EDIT because the 
system supplies control characters to format the listing. The ERASE operand is included 
to eliminate the listing from the system after printing. Each listing is put into the list 
data set (the data set beginning with LIST.). 



SYS J 



S,Y: LOGOFF 
SYS: 



The system ackowledges your PRINT command and informs you of the batch sequence 
number it has assigned to the printing task. 
Now compilation is complete. 

You are informed of the batch sequence number of the separate task created to 
print the listings produced by the compiler. 

The compiled object module now resides on the library at the top of your program 
library list — in this case, your USERLIB. 



The system will confirm your LOGOFF command. 
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Example 3: Compilation and Correcfiosi from the Terminal 

In this example, you type in the same Fortran program as in Example 2, birt this time all applicable parameters 
are shown. After logging on, you issue: 

S,Y: THE NAME=MAIN3,ST0REDr=N,¥ERID=A6/26,- 

ISD=N, SLIST=:Y, OBLIST=:N, CRLIST=N, STEDIT=N,MMAP=N, - 

BCD=N,PUBLIC=N,LISTDS=N,LINCR=(100,100) 

This is the same FTN command as in Example 2, except that here all the FTN operands 
are entered with their keywords. Each operand is described below. When entering com- 
mands conversationally at the terminal, yon may continue them on another line if 
necessary by entering a hyphen at the point where you wish to break the current line. 



Expianafion of FTN Operands 



NAME= 



Object Module Name 

You assign the name MAINS to the output object module to be created by the compiler. 
The source data set for this object module is named SOURCE. MAIN3; the listing data 
set is named LIST.MAIN3(0). 

This is the only FTN operand that may not be defaulted. 



STOREDnr 



Prestored Source Data Set 

You specify N so that you may enter source statements from your terminal rather than 
compile from a prestored source data set. 



VERID= 



Object Module Version Identification 

You may assign a version identification to the object module in this case, A6/26. It 
appears on output listings of the named program and is stored in a special field in your 
object module. If you do not assign a version identification, you may distinguish the 
version of your object module by using the system supplied "time stamp.'* A time stamp 
is always produced by the system; it gives the current time and date at which compila- 
tion begins. 



ISD= 



Internal Symbol Dictionary 

This parameter permits you to create an Internal Symbol Dictionary (ISD) during 
compilation. An ISD is necessary for the fullest use of the program control system (PCS). 



SLIST= 



Source Listing 

The listings you request with this and the next four parameters will form your listing 
data set. (See Appendix A for a detailed explanation of these listings.) The system cre- 
ates a name for this data set by prefixing "LIST." to the module name you supplied as 
the first assembler parameter (LIST.MAIN3), using generation data group logic. 
The source listing shows the source input statements. 



OBLIST= 



Object Listing 

You indicate you do not want an object listing. The object listing shows the code 
generated by the compiler. This code is in the form of assembler language statements 
and hexadecimal machine language code. Ordinarily, it is not needed by FORTRAN 
programmers. 



CRLIST= 



Cross Reference Listing 

This listing shows where, in the source program, each statement number and symbol 
is defined or referred to. You have told the system not to produce this listing. 



STEDITr 



Edited Symbol Table 

This listing indicates the characteristics and displacement for every symbol 
source program. You have indicated you do not want a listing of this table. 



the 
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MMAPz 



Memory Map 

This listing contains summary information about the module, most of which is included 
on other listings. You have declined a listing of a memory map. 



BCD= 



Binary Coded Decimaf 

Since you are writing this at the terminal, the characters entered will be stored inter- 
nally in the standard system EBCDIC form. If your source program were in the form 
of cards or tapes from a system using BCD, the BCD code could be used. In BCD 
mode, characters of either EBCDIC or BCD can be entered. 



PUBLIC= 



Private or Public CSICT Attribute 

This parameter specifies whether the executable portion (not variables) of the object 
module is to have a public or private attribute. You have selected a private attribute. 
Public means that the resulting object program can be shared by other users. Most 
FORTRAN users will want to take the default option (i.e., private). 

For more detailed information regarding all FORTRAN compiler options, see Ap- 
pendix A. 



LISTDS=: 



Listing Destination 

This parameter specifies whether the listings you request from the compiler are to be 
placed in a list data set or placed directly on SYSOUT; it is ignored in a conversa- 
tional task. 



LINCRr 



Starting line Number, Increment 

The system creates a line number for each of your source statements. Although a part 
of the source data set being formed (SOURCE. MAINS), line numbers are not an in- 
trinsic part of the FORTRAN program itself and have no specific relationship to any 
statement numbers. 

The starting line number and the increment number may contain three to seven 
digits, of which the last two must be 00. Thus in the case here illustrated, the system 
generated line numbers will be 100, 200, 300, etc. 



SYS: 



The system requests each input source line by typing out a line number to the terminal 
starting with 100. After you enter a source line, it is added to the source data set and 
processed by the FORTRAN compiler. 



S,Y: 
S,Y: 
SYS: 
SYS: 



0000100 
0000200 
0000200 
0000200 



READ (5, 10) A, B 

FORMAT (F6-2) 

E *** FORMAT STATEMENT DOES NOT HAVE STATEMENT NUMBER. 

FORMAT (F6,2} 

The system prints the line in error for your review. 

After the system prints the #, you correct the erroneous statement. 



S,Y: #200,10 FORMAT (F6.2) 
S,Y: #(press return key) 

. . . and indicate that you have finished making modifications. 
The session continues as in Example 2. 
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Example 4: Compile and Run 

In this example you enter and compile a short test program without error and then execute it. You execute your 
task in conversational mode, using your terminal for both input and output. After logging on, you issue: 

S,Y: DDEF LIBDD,VP, SCRATCH, OPTION=JOBLIB 

This command defines a job library and causes it to be placed at the top of your program 
library list. Object modules produced by compilations will be placed in it instead of in 
your USERLIB, which is now second on your library list. 

A DDEF command defines a data set during the session in which the command 
appears. In general, every data set you use must be defined for the current session, 
even if it has been previously cataloged. 

LIBDD is the data definition name (DDNAME) for the job library data set named 
SCRATCH. All libraries have virtual partitioned (VP) organization. 

The OPTION indicates to the system that the data set you are defining is a job 
library. 

The system automatically catalogs SCRATCH as a new catalog entr\^ and assigns 
an "unlimited" (read /write) access qualifier to the library. 

Your object module, MAIN4, will be placed automatically in your job library, 
SCRATCH, when compilation has satisfactorily completed. 



S,Y: FTN MAIN4,N, , , , , Y, , Y , ,Y, , (100,100) 

Liine numbers 
— listing data set 
-public CSECT 
■BCD 



—storage map 
-edited symbol table 
-cross-reference listing 



object listing 

— source listing 

^ISD 

-version identification 



-source prestored 

Because no keywords were used in specifying which operands you desired, you 
must enter those operands in the order sho\^m. 

Only the first operand must be specified. The rest may be defaulted by including 
a comma where the operand would appear. You must supply commas for defaults 
prior to the non-defaulted parameter (e.g., the Y for public CSECT attribute), but 
you need not supply trailing commas. 

The system automatically catalogs SOURCE.MAIN4 as a new catalog entry and 
assigns an "imlimited" (read/write) access qualifier to the library. 



S,Y: 


0000100 


READ (5, 10) A 


S,Y: 


000020010 


FORMAT (F6.2) 


S,Y: 


0000300 


ATC = A^3-14 


S,Y: 


0000400 


WRITE (6,10)A,ATC 


S,Y: 


0000500 


STOP 


S,Y: 


0000600 


END 



SYS; 



You type in your program statements following the line numbers printed by the system. 
You use a tab stop to space over 6 columns so that the statements have the appearance 
of the standard card format. Such tabbing is not required, but it is recommended as a 
visual aid to avoid errors. When entering source lines, a tab has the logical effect of a 
single blank character. Example 2 shows a source program entered in free form. Ap- 
pendix A discusses the use of tabs and spaces in entering source statements. 

The system informs you of the satisfactory completion of the compilation. 
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S,Y: PRINT LIST, MAIM ( 0) ,PRTSP=EDIT 

SYS: 



S,Y: CALL MAIN4 



The system acknowledges your PRINT command and informs you of the batch sequence 
number it has assigned to the printing task. 

The CALL command has two effects: it causes the loading of your object module and 
initiates program execution at the first executable statement. Note that the NAME key- 
word is omitted for the sake of brevity. 

Since you gave no DDEF command for the data set reference number 5 in your 
READ statement, the system will assume you want to obtain input from SYSIN, which 
is the terminal when in conversational mode. 

SYS: (unlocks terminal keyboard) 
YOU: 0.5 
PGM: 0.50 
1,57 

Since you gave no DDEF command for the data set reference number 6 in your 
WRITE statement, it will be defined as SYSOUT, which is also the terminal when 
in conversational mode. 

PGM: TERMINATED: STOP 

This message is printed when execution reaches your STOP statement (source line 500). 
You are now returned to command mode, indicated by the printout of the underscore. 

S,Y: ERASE SCRATCH 

Before logging off you decide that you want to erase the job library data set, SCRATCH, 
containing the object module MAIN4, because you want to modify and recompile 
SOURCE. MAIN4 at a later date. You conserve public storage and increase the effi- 
ciency of the system by erasing all data sets not needed. 

S,Y: LOGOFF 
SYS: 

The svstem confirms vour LOGOFF command. 
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Example 5: Correcting and Recompiling a Presfored Source Program 

In this example you modify and recompile the source program source. main4 which, being on a public volume, 
was automatically cataloged for you in Example 4. You then run the new object module. After logging on, you 
issue: 

S,Ys MODIFY SOURCE. MAIN4 
SYS: 

You enter a MODIFY command to alter the source program entered in the previous 

example. 

S,Y: # 

R, 100 The system prints a number sign to request each modification. You wish to review line 

100 before modifying it, and enter the R (for review), a comma, and then the line num- 
ber. 

SYS: 0000100 READ (5, 10) A 

The system prints the line. When you entered the statements, you separated them from 
their statement number with a tab character. 

The system prompts for modifications with the number sign. 

READ ( 10 , 5 , END=80 ) A 

You modify the line by typing, following the number sign, the line number, a comma, 
and then the modified line. The system then prints another number sign. 

GO TO 1 

You enter an entirely new line between 400 and 500. 

STOP 

You add the label 80 as referenced in the READ statement. 



You tv'pe these two characters to signal the end of modifications. 

S,Y: CATALOG SOURCE. MAIM, STATE = U, AC C=U,NEWNAME=SOURCE. MAI N5 

You use the CATALOG command to rename the current source data set SOURCE. - 
MAINS. At compilation time, its list data set will be named LIST.MAIN5(0) bv the sys- 
tem. The first U indicates the updating of an existing catalog entry. The second U speci- 
fies unlimited access for the data set. 



S,Y: 


# 
100,1 


S,Y: 


# 

450, 


S,Y: 


# 
500,80 


S,Y: 


# 
%E 



S,Y: FTN MAINS, Y,,Y 



You enter the name and the rest of the FTN parameters you need: Y for prestored, 
the second comma after the first Y to default the version id parameter, and Y for ISD. 



SYS: 0000100 F *** STATEMENT NUMBER USED AS FORMAT IS NOT DEFINED. 

The compiler discovers an error in line 100. Note that this error was not detected dur- 
ing your use of the MODIFY command, since that command does no syntactical 
checking. You decide to correct the line. 

SYS: 0000100 1 READ(10, 5,END=80)A 

The system prints the line that caused the diagnostic and asks whether you want to 
modify your source statements. 

YOU: Y 

S,Y: #100,1 READ(5,10,END=80)A 

S,Y: # (press return key) 

Having made the necessary correction, you signal that you are finished by pressing the 
return key. This is equivalent to the termination you indicated with %E during the 
MODIFY command. Then the compiler will rescan your source statements. 
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SYS: 

The system informs you of the satisfactory completion of the compilation. 

S,Y: PRINT LIST,MAIN5(0) ,PRTSP=EDIT,ERASE=:Y 
SYS: 

The system acknowledges your PRINT command and informs you of the batch sequence 

number it has assigned to the printing task. 

The compiled object module is stored in your USERLIB. You now proceed to 

run the modified program. 



S,Y: CALL MAINS 



Since you gave no jrjDgp command for the data set reference number 5 in your READ 
statement, the system assumes you want to use the terminal for input. 



SYS: (unlocks terminal keyboard) 
YOU: 2.0 
PGM: 2.00 
6.28 

Data set reference number 6 in your WRITE statement refers to the terminal for 

output. 

SYS: (unlocks terminal keyboard) 

YOU: 5.0 

PGM: 5.00 
15.70 

SYS: (unlocks terminal keyboard) 

YOU: 1.0 

PGM: 1.00 
3.14 

SYS: (unlocks terminal keyboard) 

YOU: %END 

Satisfied that the program is now working correctly, you terminate execution by enter- 
ing %END, which is the end-of-data indicator for SYSIN. 

SYS : TERMINATED : STOP 

Execution of MAINS being terminated, the system prints this message and then prompts 
for the next command. 

S,Y: ERASE USERLIB (MAINS) 

You plan to recompile your program later, so you erase its object module from your 
USERLIB. This will prevent name duplication in the future, and conserve public 
storage space. 



S,Y: LOGOFF 
SYS: 



The system confirms your LOGOFF command. 



Part II: Examples 29 



Example 6: Writing a Data Set and Printing It 

In this example, you run a program that writes a data set that is much too long to be conveniently printed at 
your terminal. You run the program, and then request printing of the output data set on the high-speed printer as 
a separate task. After logging on, you issue: 



YOU: 

SYS: 
S,Y: 



(press attention or dial up system) 

LOGON ADUSERID,MYPASS*, ,ADACCr29 

BOOl LOGON TASKID=-F206 12/15/69 10:12 

DDEF DDNAME=FT07F001 . DSORG=¥S , DSNAME=MBOUT , - 

DCB=(RECFM=FA,LRECL=80),DISP=NEW 

In preparation for the execution of ;/our program, you define a cataloged data set 

(M60UT) for data set reference number 7. You specify a virtual sequential (VS) data 
set. 

You specify that your record format is to be fixeddengtli (F) and the records con- 
tain print control characters (A). Its records are to be 80 bytes long. 



S,Y; 



CALL MAIN6 



The MAIN6 object module is stored in your USERLIB. 
It ends with these statements: 



WRITE ( 7 , 10 ) ALPHA , BETA , GAMMA 
10 FORMAT (1H0,3F20. 5) 
ENDFILE 7 
STOP 
END 



The data set referred to in the WRITE7 and the ENDFILE7 statements is defined 
by the FT07F001 data definition. 



SYS; 



TERMINATED : STOP 



The system indicates the end of execution. The underscore on the next line indicates 
return to command made. 



S,Y: PRINT DSNAME= 



=M60UT,PRTSP=:EDIT 

To print your newly written data set, this command creates a separate task similar 
to the tasks that have printed your listing data sets. Only the first operand, DSNAME=, 
must be specified; the remaining operands may be defaulted. 



Explanofion of PRINT Operands 
STARTNO= 



First Byfe Position 

You want printing to begin with the first byte of each data set record. You can enter a 

number consisting of one to six digits. 



ENDNO= 



last Byfe Poslfion 

This parameter specifies at w^ilch byte in each data set record printing is to end. Since 

your records are shorter than the default length of 132, your printing will end at the 

last (80th) byte of each record. 



PRTSP= 



Spacing Option 

Since you want line spacing to be controlled by the control character your program 
has supplied in each record, you choose EDIT. (The default would be 1.) Selecting 
EDIT requires that you default the next three parameters. 



ERASE= 



Erasure Option 

This parameter is meaningful only if the data set being printed is cataloged. In that 
case, you can specify that the data set be erased after it is printed. 



ERROROPTr 



Error Option 

This parameter applies only to data sets on tape. It specifies the action to be taken if 
an unrecoverable error is found while a data set record is being read. 
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FORM== Type of Printer Paper 

Here you can specify the kind of printer paper you desire for your output. The operands 
for this keyword are determined by your installation, 

SYS: 

The system informs you that it has created a separate task to print your data set. 

S,Y: LOGOFF 
SYS: 

The system confirms your LOGOFF command. 
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Example 7: Reading and Writing Cataloged Data Sets 

In this example, you run a program that reads one data set and produces two other data sets as output, as well 
as printing some short messages at the terminal. After logging on, you issue: 

S,Y: DDEF FT11F001,VS,IN11 
S,Y: DDEF FT22F001,VS,0UT22A 
S,Y: DDEF FT22F002,VS, 0UT22B 

You give data definitions for the three data sets to be used. 

A DDEF command remains in effect only for the session during which it was issued. 
Therefore, data definitions must be given even for data sets already cataloged. Data 
definition names for FORTRAN I/O have the standard form, FTxxFyyy, where xx is 
the data set reference number for an I/O statement, and yyy is the data set sequence 
number. You may use any data set name, as long as it is unique. 

Because the first data set, IN 11, was created previously, the system default for 
disposition is OLD. The next two data sets, OUT22A and 6UT22B, are going to be 
created in this task, so they receive a system default disposition of NEW. Note that 
you do not have to include explicitlv in the DDEF commands the parameter DISP= 
OLD for INll, nor DISF=NEW for'OUT22A and OUT22B. 

The last two data definitions refer to the same data set reference number as in the 
FORTRAN WRITE statement, i.e., 22. Since an ENDFILE statement is given, and 
further WRITE statements are executed on the same data set reference number, two 
distinct data sets will be created. The second number in the data definition for the 
OUT22B data set name must be stepped from 1 to 2 to refer to the second data set 
written. 



S,Y: CALL MAIN? 



You run your FORTRAN object module, which was stored in your USERLIB in a 
previous session. MAIN7 includes these statements: 



7 
10 


FORMAT (2F20.3) 

READ (11,7,END=80)A,B 

• 




• 

WRITE (22,7)A,B 

• 


80 


GO TO 10 

ENDFILE 22 

• 




• 

WRITE(22,20)E,F 

• 


20 

90 
120 


• 

ENDFILE 22 

FORMAT ( IX, 2A4) 

WRITE (77,120) 

STOP 

F0RMAT(26H FINISHED WRITING 2 FILES.) 

END 



The last WRITE statement will produce a short message on the terminal. 

PGM: FINISHED WRITING 2 FILES. 

Because you did not issue a DDgp command for data set reference number 77, the 
system assumes you want your output from the WRITE statement at the terminal. 



32 



SYS: TERMINATED: STOP 

The system indicates the end of execution with this message. The underscore mark 
indicates return to command mode. 

S,Y: ERASE INll 

You erase the input data set that is no longer needed. Erasing a data set deletes 
its entry from your catalog and releases its storage space. You do, however, want to re- 
tain your two output data sets that were automaically cataloged for you at DDEF time. 

SYS : LOGOFF 

The system confirms your LOGOFF command. 
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Example 8: Multiple Compilation Before Execution 

In this example you enter a block data program, then compile prestored main and subprograms. You create a 
new JOBLIB, which you catalog. After logging on, you issue: 

S,Y: DDEF DDLIBA,VP,LIBA,OPTION=JOBLIB 

With this data definition you create a new job library to hold the object modules from 
the three programs you are about to compile. 

The system automatically catalogs LIBA as a new catalog entr>^ and assigns an 
"unlimited" (read/write) access qualifier to the library. 



S,Y: FTN BLKDATA8 



You activate the FORTRAN compiler and specify the module name (BLKDATA8) 

for your BLOCK DATA program. You will enter your source statements at the terminal. 

The system automatically catalogs your source data set as SOURCE. BLKDATA8. 



S,Yj 
S,Y: 



S,Y: 
SYS: 



0000100 
0000200 



S,Y: 0000300 
S,Y: 0000400 
S,Y: 0000500 



0000600 



BLOCK DATA 

DIMENSION AB(3) ,AC(3) 

COMMON/XY/AB/EXTRA/AC, ANSWER 

LOGICAL ANSWER 

DATA AB(l)/.007/,AB(2)/7ia/,AB(3)/8200.0/,AC/3-,88/,- 

. ANSWER/. TRUE./ 

The period preceding ANSWER is the continuation character and is therefore not 
part of the statement. 



END 



Your program initializes data for labeled common blocks XY and EXTRA. 



The system informs you of the satisfactory completion of the compilation. 



S,Y: PRINT LIST.BLKDATA8(0) ,PRTSP=EDIT 
SYS: 

The system acknowledges your PRINT command and informs you of the batch sequence 

number it has assigned to the printing task. 

S,Y: DEFAULT LPCXPRSS=Y 

You indicate that you want the language processor "express mode" enabled. In express 
mode, several modules can be compiled in succession; the FTN command is issued 
for the first compilation, and only the module name is entered for succeeding 
compilations. 



S,Yj 
SYS 3 



FTN MAINS, STORED=Y 



The system informs you of the satisfactory completion of the compilation and requests 
the name of the next module to be compiled. 



S,Yj 
SYS: 



SUBR8 



You enter the name of the next module to be compiled. 

The system informs you of the satisfactory completion of the compilation. 



Y: 
SYS: 



_PRINT LIST. MAIN8(0), ,, EDIT 



You enter a PRINT command preceded by a command system break character so that 
the system will interpret the line as a command. Express mode is turned off, and the 
system interprets the line as a command. The system acknowledges your PRINT com- 
mand and informs you of the batch sequence number it has assigned to the printing task. 
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S,Y: PRINT LIST.SUBR8(0) ,PRTSP=EDIT 
SYS: BSN=0569 

The system acknowledges by issuing the batch sequence number of the PRINT job. 



S,Y: LOAD BLKDATA8 



SYS : 



S,Y: CALL MAINS 



A block data subprogram is the only program you are required to load. Main programs 
and subroutines they refer to are automatically loaded when you issue the RUN 
command. 

The system informs you that it has loaded BLKDATA8. 

You must load the block data program prior to executing the main program. 

Because you did not supply a DDEF for your WRITE statement in MAINS, the output 
is received at your terminal. 



PGM: 

SYS: 
S,Y: 



S,Y; 
SYS: 



2048 VARIATIONS TRIED. 
ANSWER IS F 

TERMINATED: STOP 
ERASE SOURCE. BLKDATA8 



LOGOFF 



You decide to era.se your source data set. You retain your cataloged job library, LIBA, 
containing the three new object modules. 



The system confirms voiu* LOGOFF command. 
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Example 9: Use of PCS Immediate Statements 

In this example, you are executing a program for the first time. Since the program control system (PCS) pro- 
vides complete debugging capabihty at execution time, you have not included any debugging aids in your com- 
piled program. Anticipating the use of pes, you requested an isd when the source program was compiled. 

S,Y: DDEF DEFJ0B1,¥P, JOBl, OPTION=JOBLIB,DISP=OLD 

This command defines a job library JOBl, which contains the object module, MAIN9. 
JOBl has been previously cataloged, bnt you must 0ve this data definition to make 
it available. Note that you did not have to specify DISP=OLD explicitly because JOBl 
was previously cataloged and the system defaults OLD in this case. 

S,Y: CALL MAIN9 

YOU: (press attention button) 

You begin to run the program you wish to debug and then halt execution by pressing 
the attention button. The appearance of an exclamation mark indicates the system's 
readiness to accept new commands. 



SYS ; 

YOU: QUALIFY MAIN9 



After issuing this command, you can refer to internal symbols without the qualifying 
module name; they will be qualified automatically by the prefix "MAIN9." 



S,Y: STOP 

SYS: STOP AT MAIN9.86(4) PSW 2 004A3C12 

The STOP command displays the FORTRAN statement number where the interrupt 
occurred, or, if the statement is not numbered, the most recent number plus an incre- 
ment. In this case the (4) indicates that the interrupt occurred during execution of the 
third executable statement after statement number 86. The rightmost field of the PSW 
gives the virtual storage address of the next instruction to be executed. See Appendix 
B for more PCS information. 

S,Y: LINE? SOURCE. MAIN9, (1200,1400) 
SYS: 0001200 7 ANGLEB=ANGLE1-ANGLE2 

0001300 86 ALPHA=COS(ANGLEA) 

0001400 BETA=SIN (ANGLEB) 

You request a printout of source lines 1200 to 1400 which you believe include state- 
ment number 86. (Note the distinction between line numbers, which are not part of the 
program, and statement numbers, which are.) To obtain a printout of the current 
values of the variables ALPHA and BETA, you issue a DISPLAY command. 

S,Y: DISPLAY ALPHA, BETA 

SYS : ALPHA=+ . 17751984E+00 
BETA=+ • 00000000E4-00 

S,Y: SET BETA=1.0 

Since you previously issued a QUALIFY command for MAIN9, you specify only the 
internal names of the variables. Using this new information, you decide to change the 
value of a key variable to determine if the program will run to successful completion. 
You change the value of BETA and the system informs you of the new value. 

S,Y: GO 

You next enter a GO command. It causes execution to resume from the point of inter- 
ruption. 

SYS : TERMINATED : STOP 

The program runs to completion. 
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S,Y: LOGOFF 

SYS: 

The system confirms your LOGOFF command. 

Alterations you made with PCS commands exist in your program only while it is exe- 
cuting in virtual storage. 

Since PCS alterations do not affect your object module, permanent changes should 
be made by modifying the source statements and then recompiling. 
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Example 10: Use of PCS Dynamic Statements 

In this example, you use some of the more powerful commands of pes. pes provides trace facilities, conditional 
program interruptions and modification of variables, and dumps. After logging on, you issue: 

S,Y: DDEF DDCURR,¥P, CURRENT,OPTION=JOBLIB 

This DDEF command causes your job library CURRENT to be placed at the top of 
your program library list. CURRENT has been previously cataloged and contains 
compiled object modules. 

S,Y: ERASE PCSOUTIO 

S,Y: DDEF PCSOUT,¥I , PCSOUTIO 

The DDEF command defines the data set that will be filled by the PCS DUMP com- 
mand; the data set can later be printed. It requires the data definition name PCSOUT 
and virtual index sequential (VI) organization. You name the data set PCSOUTIO. 
You precede the DDEF command with an ERASE command to ensure that PCSOUTIO 
does not contain anv data before the DUMP command is issued. 



S,Y^ 
SYS: 



S,Y: 
SYS: 



LINE? SOURCE.MAINIO , 2100 , 2700 , 3200 

0002100 A=:ATAN(Y) 

0002700 101 VAR=A**2 

0003200 210 GO T0(301,302,303, 304) , J 

You decide to display three of your source statements in MAIN 10, which has been 
previously compiled and cataloged. With the compilation, you had requested an 
internal symbol dictionary (ISD). 



LOAD MAINIO 



The system informs you that it has loaded MAINIO. 

In addition to its use for loading block data subprograms, you must use the LOAD 
command if you wish to enter a PCS statement before execution begins. Since the LOAD 
command does not initiate execution, you must eventually issue a GO or RUN command. 



S,Y: QUALIFY MAINIO 



The QUALIFY command enables you to designate, before referring to a group of 
internal names, the module in which these names are defined; thereafter, you may refer 
to these names without explicitly qualifying them by module name. 



S,Y: 
SYS: 



S,Y: 
SYS: 



AT 101 
00001 



IF A>B & J=l; SET X=:1.0 



AT 210 STOP 
00002 



This AT command will cause a message to be printed on SYSOUT when execution of 
MAINIO reaches statement number 101 and the IF condition is true. In addition, the 
IF and SET commands will cause the following: if A is greater than B at that time, 
and J is equal to 1, then X will be set to 1. Execution will then proceed. 

The system assigns a number to each command containing an AT statement (here 
1) that can be used later for removing the statement. 



You also request that execution be stopped when it reaches statement number 210. 
Without the QUALIFY command you would have had to write MAINIO. 101 in the 
first AT and MAIN10.210 in this one. 



S,Y: MAINIO 

SYS: AT MAINIO. 101 PSW 3 005F2AB0 1 

STOP AT MAINIO. 210 PSW 4 0067D238 2 

You execute the program. Your IF condition is fulfilled, X is set equal to 1, and your 
program stops at statement 210. If the IF condition were not satisfied, the SET would 
not be performed and you would not receive the X= printout. The number 1 appearing 
at the end of the PSW output is the PCS statement number assigned by the system. 
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S,Y: DUMP MAIN10#C, MAIN10#P 

You request a formatted dump of MAINlO's CSECT and PSECT. It will be written 
in the PCSOUTIO data set that you defined earlier. 



S,Y: RELEASE PCSOUT 



If you wish to print the data set during this session, you must first issue a RELEASE 
command for its data definition. This causes the data set to be closed. 



S,Y: 

SYS: 

S,Y: 

S,Y: 

SYS: 
S,Y: 

SYS: 



PRINT PCSOUTIO, ERASE=Y 

The data set will be erased after it is printed. 



REMOVE 1,2 

GO 

TERMINATED: STOP 
LOGOFF 



The system acknowledges your PRINT command. 

This command deletes the previously issued PCS statements that include AT commands. 

You now resume execution of your program. 
> 

The program runs to completion, and you logoff. 

The system confirms your LOGOFF command. 

Alterations made to your program with the PCS commands (SET, AT) exist only in 
virtual storage. To make permanent changes to a program, reassemble from an altered 
source data set. This causes the changes to be incorporated into the object module, 
which you would then load. 

Changes you make with the SET command remain in effect as long as the program 
is loaded. (By contrast, all AT commands in any of your programs are completely re- 
moved if you implicitly or explicitly unload a module that is referred to by any AT 
command.) 

Logging off causes all of your programs to be unloaded from virtual storage. 
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Example 1 1: Input and Output on Tape 

In the previous examples, all of your data sets resided on direct-access devices (disks) which were assigned to 
public storage. In this example, your data sets reside on tapes, which are always private volumes. 

You will run a previously-compiled program that reads a data set from a labeled tape and processes the in- 
put data. Then it writes a new data set on another tape. After logging on, you issue: 



S,Y: 



SYS: 



DDEF FT01F001,PS,SAMPLE01 

This command defines the data set that your program is to read. Since it is cataloged, 
you need enter only these parameters. Omitted information about the data set's charac- 
teristics (record format, record length, organization) will be obtained from the tape 
label that was created by the system when the data set was written. Information about 
the volume on which the data set resides (9-track tape, private, volume serial number, 
etc.) will be provided from the catalog entry. 

The system will inform you that the task is waiting for volume mounting. You will 
be informed by the system when the wait is over. 



S,Y: 



SYS; 



DDEF FT02F001,PS,RESULT01,- 

IINIT=(TA,9) ,IiABEL=( ,SL) , VOLUME = (PRIVATE) 

Here you define your output data set. It is not yet written, and is not cataloged, so you 
must supply all the necessary DDEF parameters. 

Because it is not yet written, the disposition field is defaulted to NEW. The data 
set is to have physical sequential (PS) organization, is to reside on a 9-track tape, and 
is to be provided standard labels (SL) by the system. 

By omitting the DCB field, you select the default options of variable length and 
unblocked records. You do not specify the volume serial number in the VOLUME 
field, so the system instructs the operator to choose a tape reel from the installation 
pool. (Refer to Appendix E for further details on specifying DDEF parameters.) 

The system will inform you that the task is waiting for volume mounting. Again you 
must wait until the tape is mounted. 



S,Y: CALL MAINll 



You execute your object program, which was stored in your USERLIB. 
MAINll has the following significant I/O and related statements. 



DIMENSION SAMPLE (250) , RESULT (250) 
10 FORMAT (250A4) 



100 READ (1,10,END=900, ERR=800) SAMPLE 



CALL TRNFRM (SAMPLE, RESULT, 250) 
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WRITE 

• 


(2,10) 


RESULT 


800 


• 

GO TO 

• 
• 


100 




900 


GO TO 100 
ENDFILE 2 
STOP 

• 






• 

END 







SYS: 



TERMINATED : STOP 



Your program concludes. 



S,Y! 



CATALOG RESULT01,STATE=N,ACC=R 

This command causes your output data set to be cataloged, thus recording its charac- 
teristics and volume serial number in the catalog. You will still have to issue a DDEF 
command in order to use this data set in a later session, but the system will retrieve 
its characteristics from the catalog, so at a later session, a DDEF of the following form 
will suflRce: 

DDEF ddname„DSNAME=RESULT01 

The N indicates that the catalog entry is new (data set not currently cataloged). 

You want to protect this new data set from accidental destruction in a later ses- 
sion so you restrict the access to read only (R). 



S,Y: 
SYS J 



LOGOFF 



The system confirms your log-off request. 

The private volumes (your two tapes) are demounted by the operator, and retained 

at the installation. 

This example can be run only in conversational mode. To run it nonconversa- 
tionally, you would omit from the LOGON command your password, which is only 
used conversationally, and add another command: SECURE (TA=2,9). 

SECURE must appear immediately after the LOGON command. It would inform 
the system of device requirements (here, two 9-track tape units) prior to execution of 
the nonconversational task. Such tasks are described in later examples. 
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Example T2: Conversational Initiation of Non€onversational Tasks 

It is often more convenient to have your programs run after you have left the terminal, that is, to have them run 
in nonconversational mode. Two ways of doing this after logging on are shown in this example. 

In Part 1, you begin your task conversationally and then use the back command to switch its execution to 
the nonconversational mode. 

In Part 2, you construct a nonconversational task and then use the execute command to cause it to be exe- 
cuted at a later time. 

Part I ; The BACK Command 

S,Y: DATA PR0C12A 

With this command you build the SYSIN data set (named PROC12A) that will provide 
input to your task after you have switched to the nonconversational mode. You do not 
need to issue a DDEF command for the data set created by a DATA command. By 
default, the data set organization is VS. 



S,Y: #DDEF FT09F001,¥S, SPRING 
S,Y: #CALL MAIN12 



The system prompts (with #) for the first command to be executed in your nonconver- 
sational task. This DDEF command defines the new data set for data set reference 
number 9. It is to reside on public storage and is therefore automatically cataloged 
for you. 

MAIN12 contains a "READ(l,m) list" and a "WRITE(9,n) list" statement. You 
omit a data definition for data set reference number 1 because you will provide input 
data in PROC12A, which will be used as SYSIN. 



S,Y: #(enter data to be read by MAIN12) 



S,Y: #%END 



S,Y: 
S,Y: 



#LOGOFF 



The DATA command accepts each line as a string of characters. Any mistakes you 
make while creating this data set will not be detected until the BACK command is 
executed. 

When %END is read from SYSIN, it indicates the end of data to your program. 



With the %E you indicate that your data set is complete. Now you are prompted with 
an underscore. 



S,Y: 
SYS: 



BACKPR0C12A 



The system informs you that your BACK command has been accepted. 
Your BACK command has been accepted and the task will be continued immediately 
as a nonconversational task beginning with the DDEF command. (Note that DDEF 
commands for private volumes must be given prior to issuing the BACK command.) 
Should you wish to cancel the task you would issue a CANCEL command which 
specified the batch sequence number. 

Now you can depart and let the task run, since PR0C12A is now its SYSIN and 
includes a LOGOFF command for task termination. If you wish to initiate another task, 
you must log on again. 

The BACK command may not complete its operation if the attention key is de- 
pressed shortly after issuing the command. The result is a nonconversational task 
still connected to a terminal. Wait a few seconds before initiating logon procedures. 
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Pari 2: The EXECUTE Command 

S,Y: DATA PR0C12B 

S,Y: #LOGON ADUSERID, , ,ADACC29 



The LOGON commaDd is the only difference between this and the PROC12A SYSIN 
data set created in Part 1. Since the task whose commands and data are stored in 
PROC12B will be run later instead of being continued, you must provide a LOGON 
command. 

Note that a nonconversational LOGON omits the password. The remainder of 
PROC12B is the same as in Part 1. 



S,Y 
S,Y 
S,Y 



DDEF FT09F001,VS, SPRING 

#GALL MAIN12 (same program as in Part 1] 

# (enter data to be read by MAIN12) 



S,Y: #%END 

S,Y: #LOGOFF 

S,Y: §foE 

S,Y: EXECUTE PR0G12B 

SYS: 

The system informs you that your EXECUTE command has been accepted. 
Your request for a nonconversational task has been accepted by the system, and will 
be executed when system resources are available. The SYSOUT of this task wall consist 
of system messages and any output to SYSOUT generated by \'0ur executing programs. 
Because the terminal is active (you are still logged on) after an EXECUTE is 
issued, another command sequence can be entered. In fact, another sequence similar 
to the one illustrated could be issued to create other tasks. 

S,Y: LOGOFF 
SYS: 

The system confirms vour LOGOFF command. 
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Example 13: Preparing a Job for Nonconversafional Processing 

In this example, you put a series of commands and input data on cards. You will subsequently send them directly 
to the installation operator, who will store the information from the cards into a data set. The data set will then 
become the sysin for a nonconversational task ( described in the cards ) and will be queued for execution. 

CARDS 

LOGON ADUSERID,,,ADACCT29 

When entered on a card, the LOGON command must start in the third card column, 
and the first two columns must be blank. All the required LOGON parameters must be 
included in the same card. The password is not used. 



DDEF DDNAME = SCRATCH , VP , SCRATCH , OPTION= JOBLIB 

The command will define a new JOBLIB on which to store the object module to be 
created by the compiler. SCRATCH will automatically be cataloged for you by the 
system. 



FTN MAIN13 , LI STDS=Y 



READ (5, 10) A 
10 FORMAT (F6,2) 
ATC=A*3.141 
WRITE(6,10)A,ATC 
STOP 
END 



CALL MAIN13 



099.70 



%END 



LOGOFF 



Here you use the LISTDS operand, which works only in nonconversational tasks. 
(If used in a conversational task, it is ignored.) By specifying LISTDS =¥, you cause 
the listing to be placed in the list data set, as in conversational tasks. If you did not 
specify LISTDS =Y, the listing would be printed automatically; then it would no 
longer exist in the system. 

Your source statements follow. Note that the requirements for direct input of a 
FORTRAN source program at the terminal keyboard and on cards are not the same; 
here you must conform to FORTRAN source coding format. This is discussed more 
fully in Appendix A. 

Your source program, SOURCE. MAIN13, will automatically be cataloged for you 
by the system. 



After compilation, the object module will reside on the library at the top of your pro- 
gram library list, in this case, the job library SCRATCH. You do not issue a PRINT 
command in this task. However, the listing data set procedure is retained as the latest 
generation of LIST.MAIN13, and you can later print it if you wish bv issuing the 
following command: PRINT LIST.MAIN13(0)„, EDIT. 

This command will initiate execution of your newly compiled module. 

This card contains your object time data. 

The %END will signal the end of the program data. The % character must be in 
column 1 of the card. This card must immediately follow the last input data card. This 
card activates the "END=" option on a READ statement, if you have used it in your 
program; if you have not, it initiates proper termination of the program execution when 
a READ is executed after the end of data has been reached. If your program depends 
on either of the above, and you have omitted the %END card, your program will read 
the subsequent commands as SYSIN data, producing abnormal results. 

Enter LOGOFF beginning in column 3. 

Three things in particular should be kept in mind when preparing a deck of cards for 
processing: 

L Although the positioning of characters when typed in directly can be "free form,'* 
the positioning on cards is more closely fixed. 

2. Any errors in preparing the deck will probably terminate the task, since the system 
cannot prompt you for corrections. 

3. The "modifications" and "continue'* compilation prompts will not occur, so no Y or 
N responses should be specified. 
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Example 14: Storing DDEF Commands for Lafer Use 

In Part 1 of this example you create a data set containing ddef commands for frequently used data sets. In Part 
2 you cause them to be issued with a cdd (call data definition) command. After logging on, you issue: 



Part f: Storing DDEF Commands 

S , Y : DATA DDPACK. MAIN14 , RTYPE = I , BASE=1000 , INCR=400 

The DATA command can be used to store any kind of information that can be trans- 
mitted through the terminal. Here you are going to use it to store your DDEF com- 
mands in a data set you name DDPACK. MAIN 14. The commands are stored as charac- 
ter strings but are interpreted as commands when they are later retrieved with 
the CDD command. 

The I specifies that the data set is to be indexed. The first line number is to be 
1000, and succeeding line numbers are to be incremented by 400. Default values for 
each of these parameters is 100. 

The data set, DDPACK. MAIN14, is automatically cataloged for you by the system. 

S,Y: 0001000 DDEF YOURIiIB,VP,MAINPGMS,OPTION= JOBLIB 

The system prompts you for each line with a line number. You enter the first DDEF 
to be stored. It is for the cataloged job librarv that contains vour compiled program to 
be run, MAIN14. 

The DDEFs do not have to be stored in any special order in the data set, but their 
ddnames must be unique. 

S,Y: 0001400 DDEF FT01F001,¥S, IN14 

Data set reference number 1, input for MAIN 14, has been cataloged in an earlier 
session under the name IN 14. 

S,Y: 0001800 DDEF FT09F001,PS,DATA,UNIT= (TA,9) ,LABEL=:,- 

S,Y: 0002200 ( ,SIi) ,VOLUME= ( ,012170) 

MAIN 14 also expects input on data set reference number 9 from an un cataloged data 
set residing on tape 012170. Note the use of hyphen to continue the command on the 
next line. 

S,Y: 0002600 DDEF FT51F001,?S, OUTPUT. MAIN14 

Since MAIN14 output will be too large to be conveniently printed at the terminal, 
this cataloged data set is to be defined to hold it. 



S,Y: 0003000 %E 



S,Y: LOGOFF 
SYS: 



The %E indicates that input to the DATA command is complete. 



The system confirms your LOGOFF command. 

Your program, MAIN 14, and its associated DDEF commands are ready for use. You 

now check them out, to be sure there are no errors. 



Part 2: Retrieving Stored DD£F Commands 

After logging on, you issue: 

S,Y: ODD DDPACK •MAIN14,Y0URLIB 

You cause the DDEF that defines your job library to be issued. 
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SYS: 0000, DDEF YOURLIB,¥P,MAINPGMS, OPTION =JOBLIB 

The system executes the specified DDEF command, prefixing four zeros to distinguish 
it on your SYSOUT hsting from those DDEF commands entered directly through 
SYSIN. Any diagnostic would be printed at this point, as the system is now analyzing 
the character string as a DDEF command. 

S,Y: CDD DDPACK,MAIN14, (FT01F001,FT09F001,FT51F001) 

This command causes it and all the remaining data definitions to be executed. You may 
enter any number of ddnames. Omitting this parameter causes all the DDEF commands 
to be executed. 

SYS: 0000 DDEF FT01F001,¥S, IN14 
0000 DDEF FT09F001,PS,DATA 
UNIT=(TA,9),LABEL=(,SL) ,V0LUME=( , 012170) 



SYS: 



SYS: 



The system informs you that it is waiting for volume mounting. 
You must wait until the operator mounts your tape. 

The system informs you that the task is now proceeding and the wait is over. 



SYS: 0000 DDEF FT51F001,VS, OUTPUT. MAIN14 

You begin execution of a program. 

S,Y: CALL MAIN14 

SYS : TERMINATED : STOP 

Execution of your program is complete. The output of MAIN 14 went to the data set 

OUTPUT.MAIN14. 

S,Y: PRINT OUTPUT .MAINM^PRTSPizzEDIT 

SYS : The system acknowledges your PRINT command. 

S,Y: LOGOFF 

SYS: 

The system confirms your LOGOFF command. 

The following card deck is all you need to run this task nonconversationally. 

CARDS 

LOGON ADUSERID, ,,ADACCT29 

SECURE (TA=1,9) 

CDD DSNAME=:DDPACK.MAIN14 

RUN L0C=MAIN14 

PRINT OUTPUT. MAIN14,PRTSP=EDIT 

LOGOFF 
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Example 15: References to Subroutines 

In this example you run two programs, mainis and mainxv, each having references to other programs. After 
MAIN15 is loaded, a diagnostic warns you of an undefined reference. You ignore it and execute anyway. After 
MAiNxv is loaded, a diagnostic warns you of an undefined reference in a program called by mainxv. In this ease 
you resolve the reference before executing. After logging on, you issue: 



S,Y: CALL MAINIS 



The CALL command causes the system to load the specified object module and to 
initiate its execution. During loading, the loader attempts to resolve any external refer- 
ences by searching the libraries in the program library list and loading those modules 
with definitions that satisfy the references. These new modules may in turn have refer- 
ences to other modules. 



SYS: 



*****^ UNDEFINED REF (ACLRTN) IN MODULE 
F025 MAINIS ERROR IN LOADING MODULE 
F002 STATEMENT REJECTED 



(MAINIS) .ADDRESS FFFFFOOO ASSIGNED 



S,Y: 


GO 


S,Y: 


CALL MAIN15 


SYS: 


TERMINATED : 



STOP 



Here a diagnostic is issued because the loader could not resolve a CALL for ACLRTN. 
It assigns an invalid address that will cause an interrupt if it is executed. Since you are 
certain that in this case the actual execution flow of MAINIS will not go through the 
CALL on ACLRTN, you decide to go ahead and execute. 

You issue a GO command, but the system merely prints an underscore. 

You then issue the CALL command with the required module name. This must be 
done after the occurence of the F002 diagnostic. 

Your program runs to completion, ACLRTN was not called during execution. If it had 
been, an invalid address diagnostic would have appeared and an abnormal task termina- 
tion would have followed. 

Now you want to run MAINXV. You have to decide whether or not to unload MAINIS. 
If you don't unload it, any programs already loaded for MAINI5 that MAINXV also 
uses will not have to be reloaded, thereby saving some time. On the other hand, if the 
programs are not unloaded and then reloaded, the loader will not be able to check their 
references, and any unresolved references they might have will go undetected. To be 
safe, you unload MAINIS. 



S,Y: UNLOAD MAINIS 



MAINIS and any other modules that were loaded because of references from it are 
unloaded. 



S,Y: CALL MAINXV 



Now you initiate the loading and execution of MAINXV. 



SYS: **** '^UNDEFINED REF (PRESSR) IN MODULE (THRUST44) .ADDRESS FFFFOOOO ASSIGNED 
F025 THRUST44 ERROR IN LOADING MODULE. 
F002 STATEMENT REJECTED. 

THRUST44 was loaded because of a CALL to it from MAINXV. 

THRUST44 in turn contained a CALL to PRESSR, which could not be located after a 
search of all the libraries on the program library list. You remember that a job library 
named ROCKETS has an object module which contains a definition for PRESSR. 

S,Y: DDEF MYLIBE,VP,ROCKETS,OPTION=JOBLIB,DISF = OLD 

You issue a DDEF for the library ROCKETS to put it at the top of the program library 
list. 
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S,Y: UNLOAD MAINXV 

Then you unload MAINXV from virtual storage. 

S,Y: CALL MAINXV 



Reloading MAINXV causes the loader to search the libraries in the program library 
list again and it resolves the CALL to PRESSR from the newly defined library and 
loads the module containing the definition of PRESSR. 



SYS : TERMINATED : STOP 
S,Y: LOGOFF 

After execution is complete, you log off. 

SYS: 

The system confiiTns your LOGOFF command. 
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Example 16: Entering Data for Later Use 

In this example, you create two data sets, one containing a source program for compilation in a later session, the 
other containing data to be read by the program stored in the first data set. After logging on, you issue: 

S,Y: DATA SOURCE. ORBIT, I ,2000,200 

SOURCE. ORBIT is the name of the data set you are about to create. When the DATA 
command is used, the system automatically supplies a data definition. The qualifier 
"SOURCE" is needed because this data set is intended to be used as input to the 
FORTRAN compiler. In earlier examples, where source statements were entered after a 
FTN command, the source data set was created automatically and the qualifier, 
SOURCE, was attached by the system. 

The I specifies that the data set is to be indexed. The first line number is to be 
2000, and succeeding line numbers are to be incremented by 200. Default values for 
each of these parameters is 100. 

The source data set, SOURCE. ORBIT, is automatically cataloged for you by the 
system. 

S,Y: 0002000C ORBIT CALCULATIONS, HIGH ECCENTRICITY 

The DATA command prompts for input by printing a line number. You enter a com- 
ment line (C in column 1). You may start typing immediately after the line number, or 
use a tab stop to format the terminal printing of your input. The tab stop may be set 
at this time. When setting your tab stop, you should issue a line cancellation (a pound 
sign at the end of the line) to cancel any of the spurious characters (tab, space, etc.) 
that were generated when you set your tab. 

S,Y: 0002200 DIMENSION A(100, 100) ,B(1000) 

S,Y: 0002400 REED (5, 10) A 

You notice you made a mistake in line 2400. 

Since the line has not yet been completed (you have not pressed the return key) you 

cancel the line by using the # sign. You then tab over and enter the correct line. 

YOU: READ (5, 10) A 

S,Y: 000260020 FORMAT (19H PERTUBAT 

RBATION TABLE) 

You make another error, but this time you correct only the part in error. You back- 
space 3 times, cancelling BAT, move the paper up once manually to avoid overtyping, 
and continue the line correctly. 

S,Y: 0002800 CALL THRUST (A, B) 

S,Y: 0003000%2200, DIMENSION A (100, 100) ,B (1000) 

You notice another misspelling made earlier and decide to correct it by replacement. 
The percent sign in the first typeable position has a special meaning to DATA when 
of the form: %line number. It means that an insertion or replacement is to be made. 
If the line number specified already exists, a replacement by the character string fol- 
lowing the comma will be made. If the line number falls numerically between two 
existing ones, an insertion will be made at that point. 

In this correction and in the one after the next, the tab stop cannot be used because 
of the double line numbers. Therefore, to maintain uniformity for future printouts of 
your source data set, you enter six spaces between the comma and the source statement, 

S,Y: 0003000 WRITE (6,10)B 

The correction is made and you are again prompted for line 3000. 
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S , Y : 0003200%2700 , 30 



S,Y: 0003200 



FORMAT (113.6) 
Instead of entering a line for 3200, you insert a new line between 2600 and 2800. 



S,Y: 000700010 FORMAT {1X,2F10.6) 

When entering your VS input data for your program via the DATA command (see 
below), the system places a keyboard-card character for internal use prior to each 
FORTRAN record. In this example, then, your FORMAT statement must include 
an X specification to skip one character for each record to be read so that your 
program will skip over the unwanted system character. 



S,Y: 0007200%D,2600 



S,Y: 
S,Y: 



0007200 
0007400%E 



END 



S,Y: DATA TELEMOOl 



The %D deletes line number 2600 from the data set. If a range of lines is to be deleted, 
two line numbers are specified; the first line number must be lower than the second. 



The %E indicates to the DATA command that your data set is complete. 



You enter another DATA command, this time defaulting to no index, which means you 
will create a virtual sequential (VS) data set. This data is to be read by the program you 
just entered. Because this data set also resides on public storage, the system automati- 
cally catalogs TELEMOOl for you at this time. 



S,Y: #099.900000-08-732460 
S , Y : #093 . 247650-01 • 178940 



When a sequential data set is specified, line numbers do not appear; instead the system 
prompts you for each line with the number sign. The tab key has not been used in 
entering this data because it would then not be compatible with the input FORMAT 
statement in ORBIT. Since a special character code is transmitted each time the tab 
is depressed, allowance for use of the tab key would have to be made when writing the 
FORMAT statement by using the X specification to skip one character for each time 
you planned to press the tab key. 



S,Y: #%E 

S,Y: RET TELEMOOl, PR 



When a data set with virtual organization residing in public storage is automatically 
cataloged for you, the system creates a new catalog entry and assigns an access quali- 
fier of "unlimited" (read Avrite) to the data set. 

You wish to change the system assigned access qualifier because this data set con- 
tains important information which you do not want accidentally destroyed. You there- 
fore issue a RET command giving the data set name TELEMOOl. The operand after 
the data set name specifiies the data set is to reside on permanent storage and have 
the read-only attribute. 

S,Yj line? SOURCE. ORBIT, (2000,7400) 

To check on the corrections made while entering ^mur source statements, you use this 
command to print the contents of the data set you have just created. You specify the 
first and the last lines to cause the printing of the entire data set. 
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SYS; 



0002000 C 

0002200 

0002400 

0002700 30 

0002800 

0003000 

0003200 



ORBIT CALCULATIONS, 
DIMENSION A (100,100; 
READ (5, 10) A 
FORMAT (E13. 6) 
CALL THRUST (A, B) 
WRITE(6,10)B 



HIGH ECCENTRICITY 
,B{1000) 



SYS: 



S,Y: 
SYS: 



0007000 10 FORMAT (2F10. 6) 

0007200 END 

D334 LAST LINE IN MEMBER OR DS IS 7200 

0007200 END 



LOGOFF 



The system informs you that the last line of the data set is line numbered 0007200. 
The space between the line numbers and the source statements is created by the 
system. It indicates that the lines were originally entered from a terminal keyboard. 
Lines entered from the terminal card reader are indicated by a C in that space. 



The system confirms your LOGOFF command. 



Tab stops were used to make the terminal printout format resemble FORTRAN source card format. Note that, just 
because your terminal printout format looks like card images, it does not mean that cards punched from this data set 
can be used as FORTRAN source input, hi this example they cannot. For a further discussion of punching source cards 
from a data set prepared at the terminal, see Appendix A. 
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Example 17: Data Set Considerations When Interrupting a FORTRAN Execution 

In this example, you run a program that uses a data set on a private disk as input. When execution begins, you 
reaHze you have specified the wrong data set. To start over you release the data set and unload your program. 
You then run with the correct data set. After logging on, you issue : 

S,Y: DDEF FT11F001,VS,RESULT01,0LD 

This command defines the data set that provides input to your MAIN 17 program. DCB 
subparameters are not required for existing data sets on direct-access devices, since the 
data set characteristics were recorded with the data set itself when the data set was 
created. 

SYS: 

The system informs you that the task is waiting for volume mounting. You must wait 
for the operator to mount your disk. 

S,Y: DDEF FT05F001,VS, TABLEOOl 

This command defines a new data set on public storage that is to contain some of your 
program output. It is automatically cataloged for you by the system. 

S,Y: CALL MAIN17 



You default data set reference number 1, which was referred to in MAIN17, to 
SYSOUT (terminal). 

PGM: FIRST RECORD OF TEST RESULTS SHOWS 

DATE OF TEST — 11/17/69 
LOCATION A 
ALTITUDE RANGE 20000.0 TO 30000.0 

This is some of the output from MAIN17. 

YOU: (press attention button) 

Realizing that you have specified the wrong data set and volume number in your DDEF 
command, you stop execution of MAIN17 by pressing the attention button. 

SYS : 

S,Y: UNLOAD MAIN17 

You make sure that all your data sets are closed. Remember that the data set TABLEOOl 
was to be created during this run. If some output had gone to this data set before you 
pressed the attention button, and another RUN MAIN17 was issued without unloading, 
whatever had been written in TABLEOOl would be left there after restart. 



S,Y: RELEASE FTllFOOl 



This command releases the DDEF command previously issued. You must issue it 
before the FTllFOOl data definition can be repeated for another data set. 



S,Y: DDEF FTllFOOl, ¥S,RESULT02, OLD 

You define what you believe to be the correct data set. 

SYS: r 1 . 

The system informs you that the task is waiting for volume mountmg. After being 
notified that the operator has mounted disk number 012237, you again execute your 
program. 
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S,Y: CALL MAIN17 



You default data set reference number 1, which was referred to in MAIN 17, to SYSOUT 
(terminal). 

PGM: FIRST RECORD OF TEST RESULTS SHOWS 

DATE OF TEST — 11/23/69 
LOCATION B 
ALTITUDE RANGE 5012,9 TO 6492.3 

Everything now appears to be all right, so you allow execution to proceed to the exit 
message and underscore. 

SYS : TERMINATED : STOP 
S,Y: LOGOFF 

The system confirms your LOGOFF command. 
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Example IBi Sharing Data Sets 

This example shows how data sets can be shared by several users of the system. Part 1 shows a session during 
which another user makes one of his data sets available to yoo. Part 2 shows how you copy the data set so that 
you can make changes to it. 



Part 1: Permlffing Access to a Dafa Set 

After logging on, user abpalid issues: 

S,U: PERMIT DATA,USERID=ADUSERID. ACCESS=RO 

He makes available to you his cataloged data set DATA with read-only access point. 

S,U: RET DATA,R 

He changes his own access to DATA to read-only. 

S,U: DDEF FT01F001,VS,DATA 

The user defines data set D?. ' \ tor his new task; he now has read-only access to it. 

S,U: PROGl 

He executes PROGl, a program, that uses data set DATA. 

USR: LOGOFF 
SYS: 

The system confirms his LOGOFF command. 



Part 2: Accessing g Shared Dafa Set 

After logging on, you issue: 

S,Y: SHARE DATA,USERIDz=ABPAIjID, OWNERDS=DATA 

An, entry will be created in your catalog for data set DATA. This command would 
have lieen rejected if the owner had not previously granted you access with the 
PERMIT command. 

S,Y: DDEF FT03FT001,¥S,DATA 

You issue a DDEF command defining DATA for your task. 



S,Y: PR0G9 



You can now execute PROG9, a program that uses data set DATA. 

Note: FORTRAN I/O opens all virtual storage data sets for OUTPUT unless the data 
set is read-only; read-only data sets are opened for INPUT. If a shared data set is 
opened for OUTPUT, an interlock is set that prevents other users from having access 
to the data set until it is closed. 
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YOU : LOGOFF 

You must remember that if the owner erases or deletes one of his data sets which 
you share, its entry in }^our catalog is not removed. To remove the entry from your 
catalog, you must issue a DELETE command. 

SYS: 

The system confirms your LOGOFF command. 
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Example 19: Manipulation of Several Forms of a Program 

In this example, you examine a previously cataloged program. Then you remove all forms of it from the system. 
After logging on, you issuer 

S,Y: LINE? SOURCE. MAIN19, (1, 5000) 

You would like to eliminate from the system any forms of a program named MAIN 19 
that you no longer need. You want to punch the source data set on cards, but first you 
must determine whether such cards can be used as compiler input. So you issue this 
command in order to examine the source data set. 



SYS: 



SYS 5 



The system informs you that the first line number in the data set is 000100. The system 
then proceeds with the actual listing. 



OOOOIOOCC THRUST CALCULATIONS FOR MK.l ENGINE 
0000200CC WITH STANDARD ATMOSPHERE, 
0000300C DIMENSION ATBL(10, 1000) ,F0RM(10) 
0000400C10 FORMAT (lOFlO.S) 
0000500C20 FORMAT (10A4,2I4) 
0000600C READ (3,20) FORM, I, J 

0000700C READ (3, FORM) (ATBL{ {II, JJ) ,11=1 ,1) , JJ=1, J) 
0000800C WRITE (4,10) ATBL(I, 
YOU: (press attention button) 

Satisfied that the program is what you want, you terminate the LINE? command. The 
C following the line numbers indicates the statements were originally entered via a card 
reader. This means that, if you punch the source data set, the cards can later be used 
for compiler input. (See Appendix A for a more detailed description of compiler input 
format requirements.) 

S,Y: LINE? SOURCE. MAIN19, 9999999 

SYS: 

The system issues the last line in the data set as: 0013700C END 

In order to determine the size of the data set, you request the maximum possible h*ne 

number. This causes the last Hne of a line data set to be printed. 

S,Y: PRINT SOURCE. MAIN19 

This command causes the creation of a nonconversational task that will print the 
source data, and issues a batch sequence number for the nonconversational task. 



SYS: PRINT BSN=0375 



The system acknowledges your PRINT command and assigns it a batch sequence 
number (BSN). 



S , Y : PUNCH SOURCE . MAIN19 , STARTN0=9 , ENDN0=88 , ERASE=Y 

You request the punching of the 9th through 88th characters of each record in your 
source data set. The first eight characters are the line number and the input key. The 
system creates a separate task that will perform the punching when system resources 
are available. 

You had to use the ERASE option in the PUNCH command, rather than a 
separate ERASE command following it. The system will reject an ERASE command 
if the data set referred to has an associated print or punch task pending. Most likely 
the two tasks will be executed in the same order as they were entered. It is possible, 
however, that they actually will be executed in reverse order. If so, the ERASE option 
will be delayed until after the PRINT task has been completed. You should not insert 
the ERASE option until the last print or punch data command in any sequence which 
refers to the same data set. It is possible that the first one, for example the PRINT above, 
could be executed in less time than it takes to type in the next command; therefore the 
ERASE option on the PRINT command could take effect before the PUNCH task 
could be executed. 
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S,Y: CANCEL 0375 

You now decide that a listing of the source data set is superfluous (since you will have a 
source deck), so you cancel the printing task, referring to it by the batch sequence 
number. 

S,Y: ERASE LIST.MAIN19(-1) 

Here you erase the generation that contains the earlier version of MAIN 19. 

S,Y: ERASE LIST.MAIN19(0) 

Here you remove the latest generation of LIST.MAIN19 which you created and cata- 
loged when the program was compiled in an earlier session. 

S,Y: ERASE USERLIB(MAIN19) 

This command erases the last form of this program, the object module produced during 
compilation. 

S,Y: LOGOFF 
SYS: 

The system confirms your LOGOFF command. 
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Example 20: Terminal Input of a Pre-Punched Program for Compilation and Rynning 

In this example, you use a terminal that has a card reader. You switch back and forth between terminal keyboard 
input and card input as you compile and execute a program. 

You place a deck in your terminal card reader, logon and i^ogoff command cards must begin in column 
3, and their first two columns must be blank. All other commands may begin in column 1. 

CARDS 

FTN MAIN20,ISD=:Y,LISTDS=Y 
C MATRIX I/O AND MULTIPLY 

DIMENSION A(20) ,B(20) ,C{20) ,F0RM(10) 
10 FORMAT (10A4,I3) 

15 READ(7,10)F0RM,I 

20 READ(7,F0RM,END=30)(A(J),J=1,I), {B(K) ,K=:1, 1) Source 

CALL MATMPY (A,B,C,I,I,I) Statements 

WRITE (17, FORM) (C(J) ,J=1,I) 

GO TO 20 
30 STOP 

END 
PRINT LIST,MAIN20(0),PRTSP=EDIT 
KB Return to keyboard 

After logging on, you issue: 

S,Y: GB (press reader start button) 

This causes SYS IN to be switched to the card reader for one card. You can do this 
any time the system is waiting for keyboard input if the desired cards are ready in the 
card reader. 

Since the terminal is in send-receive mode, each card image is printed on the 
terminal as if it had been typed in at the keyboard. 

CIP: LOGON ADUSERID, MYPASS*, ,ADACCT29 

This is the card image printout (CIP). You supply the LOGON command from the 
card deck. 

S,Y: CB (press reader start button) 
S,C: FTN MAIN20,ISD=Y,LISTDS=Y 

The system prompts for source statements by issuing a line number. It then reads the 
statements from the card reader. 

MATRIX I/O AND MULTIPLY 

DIMENSION A(20) ,B(20) ,C(20) ,F0RM(10) 

FORMAT (10A4,I3) 

READ(7,I0)F0RM,I 

READ(7,F0RM,END=30) (A( J) , J=1,I) , (B(K) ,K=:1,I) 

CALL MATMPY(A,B,C,I,I,I) 

WRITE (17, FORM) (C(J) , J=1,I) 

GO TO 20 

STOP 

END 

Even though you selected the card reader, these responses must be entered from the 
keyboard. The system will automatically revert to the card reader after these prompts. 



S,C: 


OOOOIOOC 


S,C: 


• 0000200 


S,C: 


000030010 


S,C: 


000040015 


S.C 


: 000050020 


S,C: 


0000600 


S,G; 


: 0000700 


S.C, 


: 0000800 


S.C 


: 000090030 


S.C 


: 0001000 


SYS 





YOU 



SYS: 



The system informs you that there were no errors. 
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GIF: PRINT LIST-MAIN20(0) ,PRTSP=:EDIT 



SYS: 



The system acknowledges your PRINT command and assigns it a batch sequence 
number (BSN). For this example, assume a BSN of 0137. 



CIP: KB 



The KB card is encountered, which switches control to the keyboard. The system*s 
underscore prompt for a command is followed by the KB card image printout. This 
results in another prompt for a command. 



S,Y: 



CANCEL 0137 



Since you do not now want to see the listings produced by the compiler, you cancel 
the task created to print them. Note that LIST.MAIN20(0) is cataloged for you in case 
you want to print it later. 



S,Y: CB 



CARDS 



CIP 
CIP 
CIP 
CIP 
PGM 



The system prompts you for input of data by unlocking the terminal keyboard. You 
have the following deck ready in the card reader and switch to card input by entering 
CB at the keyboard. 

Your READ statement refers to data set reference number 7. Since you did not supply 
a DDEF for FT07F001, you default for terminal input. 



GALL MAIN20 

(3F10.6} 003 

+03.600000-04.723000+07-245000 

-04.200000+09.000000+03.400000 

+05. - 6. +07.800000 

+35. +01.300000-04,200000 

- 07 . 600000+03 . 700000+83 . 

+11 . 100000 - 13 . 140000+17 . 8 

%END 

KB 

Your program reads its input data from the card deck. 

CALL MAIN20 

(3F10.6) 003 

+03. 600000-04, 723000+07. 245000 

-04. 200000+09. 000000+03. 400000 

25.999969-61.210037 93.89157 

You default the data set reference number 17 so that your output will be printed at 
the terminal. 



CIP 
CIP 

PGM 
CIP 
CIP 
PGM 
SYS 
S,C 



S,Y: 
SYS: 



+05. -6, +07.800000 

+35. +01. 300000-^04. 200000 

54.431976116.639954 44.063965 
-07 . 600000+03 . 700000+83 . 
+ 11,100000-13.140000+17.8 
64.799973-77.759964101.087952 

CHCIW STOP 
KB 

Your program concludes. The KB card causes SYSIN to be switched to the keyboard. 
You then log off. 



LOGOFF 



The system confirms your LOGOFF commaiili: 
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Exomple 21: Infra-Task Carryovers 

In this example, you prepare a deck for noneonversational processing, taking into account carryover of data 
definitions and coj^imon blocks within the task. Your logon and logoff commands begin in column 3; all 
other commands may begin in column one. 

CARDS 

LOGON ADUSERID, , ,ADACCT29 

LOGON command parameters must all be on one card. A task for noneonversational 
execution must be accurately prepared because most errors will cause premature 
termination of the task or will make the results useless. Note that you do not enter a 
password in noneonversational tasks. 

SECURE (TA=3,9) , {DA=1,2311) 

The SECURE command is needed in all noneonversational tasks that use private vol- 
umes, in order to secure devices on which to mount them. This command requests 
three 9-track tape drives and one 2311 disk unit. Only two tapes will be used simul- 
taneously; the need for securing three will be explained later in this example. If this 
command is omitted or an insufficient number of units are reserved, your task will be 
terminated upon execution of the first DDEF command that requests a private device 
that is not secured. 

DDEF MYDISK,VP,MYLIBE,OPTION=:JOBLIB 

Since the data set MYLIBE is cataloged, the only parameters needed are those shown 
here. 

DDEF FT01F001,PS,MYDATA0A,UNIT=(TA,9) ,VOLUME= ( ,324010) , LABEL=:( ,SL) 

This DDEF command and the next one include the additional parameters needed for 
uncataloged data sets. The first command refers to an existing volume. Data set char- 
acteristics will be obtained by the system from the label that was created when the 
data set w^as first written on your private volume. You specify that standard labels exist. 
Note the — in card column 72 signifying a continued command on cards. The next 
card starts in column 16. 

DDEF FT02F001,PS,MY0UT00B,UNIT=(TA,9) , VOLUME=( PRIVATE ) ,- 
DCB={RECFM=:F,LRECL=80},LABEL=(,SL) 

This DDEF command defines a new data set that is to reside on a private volume. By 
specifying PRIVATE but omitting the volume serial number on the VOLUME para- 
meter you indicate that you want the operator to provide a tape from the installation 
pool. With the LABEL parameter, you indicate that you want the system to create 
standard labels. 



CALL MAIN21A 



UNLOAD MAIN21A 



MAIN21A contains a "READ(Ln)list" statement that reads input from the data set 
MYDATAOA. It creates the new data set, MYOUTOOB, with a "WRITE(2,n)list" 
statement. 

The data set reference numbers 1 and 2, in the READ and WRITE statements, 
respectively, appear in the data definition names (i.e., FTOlFOOl, FT02F001). 



Unloading a program once you are through with it is often essential to successful pro- 
gram execution. For example, MAIN21A and MAIN21B both have an unlabeled 
(blank) COMMON block. You are not sure which COMMON block is larger. If 
MAIN21B contains a larger COMMON block than MAIN21A, then you may encounter 
problems when you run MAIN21B because the loader will not allocate virtual storage 
for a new COMMON block if there is one already loaded from the RUN MAIN21A 
command. Since the loader allocates each unlabeled COMMON block extra pages 
of virtual storage, the larger COMMON block in MAIN21B may fit. If it does not, 
MAIN21B will probably be terminated because of an invalid address reference. Un- 
loading MAIN12 also ensures that the data sets it refers to are closed. 
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CATALOG MYOUTOOB,N 



In order to store the volume serial number in the catalog, this command must precede 
the RELEASE command below. Because this is a new private volume you cannot 
know the volume serial number in advance. By cataloging you cause the system to 
record the assigned volume serial number in the catalog. You can then define the data 
set for a future session by supplying only the minimum parameters in the DDEF com- 
mand. Although failure to catalog MYOUTOOB at this point would not have caused 
erasure of MYOUTOOB, it would have made it inaccessible during the rest of this 
task. In conversational mode the assigned volume serial number is printed out and 
can be used in a DDEF command later in the same session. 



RELEASE FTOlFOOl 



The next program to be run, MAIN21B, will read the data set MYOUTOOB with a 
statement of the form READ(l,n)list. This read statement will also require a DDEF 
command with a data definition name FTOlFOOl. If another DDEF command named 
FTOlFOOl were issued at this time an ambiguity would result, since the data definition 
FTOlFOOl would refer to two different data sets. The system would detect the error, 
reject the command, and print a diagnostic message. Therefore, you issue this RELEASE 
command to make the data definition name, FTOlFOOl, available for use with MY- 
OUTOOB. Releasing the data definition name also releases the data set name and any 
secured devices it used. The RELEASE command in this example relinquishes one of 
the secured tape drives to the system, leaving you with two. 

BDEF FTOlFOOl , , MYOUTOOB , OLD 

You are, in effect, moving the data set name MYOUTOOB from data definition FT02F001 
to FTOlFOOl. There is no ambiguity because the system will remove the data set name 
MYOUTOOB from the data definition FT02F001. The system is also cognizant of the 
volume in which the data set MYOUTOOB is resident and that MYOUTOOB has already 
been mounted on a secured device for this task. 

DDEF FT02F001, PS, FINALOC, UNI T=:fTA, 9 ),VOLUME=( PRIVATE) ,- 
DCB=(RECFM=FBA, LRECL=50,BLKSIZE==500) , LABEL=(,SL) 

The FT02F001 data definition was left without a data set name and is thus available 
for use. This DDEF command now makes use of it to define a new data set named 
FINALOC. The third secured tape unit (unused until now) will be used to mount the 
necessary private tape volume. 



RUN MAIN21B 



CATALOG FINALOC, N 



LOGOFF 



A "WRITE(2,n)list" statement in MAIN21B will create the data set FINALOC. 

This command will catalog FINALOC so that you need specify only the minimum 
parameters when you issue a DDEF command for it in a future session. 
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Example 22: Survey of System Facilities and Some Housekeeping Methods 

In this example you do some hoosekeeping, erasing unwanted programs, and transferring a source program from 
public storage to tape. After logging on, you issue: 



S,Y: PC? 



Tliis command i-:^ used to pr{''f->?nt th(> name, access, arid, for ^lirucd -data sets, the 
owner*s identification for one or more cataloged data sets. Since > on do not specify 



anv data set nomcs ht.Yc. information about all vom^ catalcf.:c( 



aia sees is presemed 



SYS: DATA SETS IN CATALOG WITH QUALIFIER ADUSERID 

ADUSERID-JOBLIBA, ACCESS :RW 

ADUSERID. LIST, MAINTEST(O), ACCESS :RW 

ADUSERID. M220UT, ACCESS :R0 

ADUSERID- PROJECT. A, ACCESS :R0 

ADUSERID.PROJECT-B, ACCESSiRO 

ADUSERID-PROJECT.G, ACCESS iRW 

ADUSERID. PROJECT, C2, ACCESS :R0 

ADUSERID. SOURCE. MATRIX?, ACCESS :RW 

ADUSERID- SOURCE, TRIALX, ACCESS :RW 

ADUSERID -VERSIONS, ACCESS :R0, OWNER :MICHAELB 

S,Y: DSS? SOURCE .MATRIX? 

Yoo want more information about one of your cataloged data sets, so you issue a DSS? 
command. This command presents more detailed information than does the PC? com- 
mand. If. DSS? is specified without an operand, detailed status information for all 
your cataloged data sets is presented. 



SYS : ADUSERID, SOURCE » MATRIX? 
ACCESS: RW 

¥OLUME: 232323 (2311) 
DS ORGANIZATION: ¥1 
REFERENCE DATE: 25?/68 
RECORD FORMAT: V 
KEY LENGTH: 00007 



PAGES: 002 
CHANGE DATE: 257/68 
RECORD LENGTH: 00132 
RELATIVE KEY POSITION: 00004 



S,Y: ERASE SOURCE. MATRIX? 
S,Y: ERASE LIST,MAINTEST{0) 

You decide to erase two of the foregoing data sets. You wou 
other data set before deciding whether to erase it. 



Id like to examine one 



S,Y: LINE? SOURCE. TRIALX 

SYS: 0000100 C TRIALX IS BASED OK FORMER TUBE TEST ROUTINE. 

YOU: (press attention button) 

The firsi. Iru'^ pointed out is suflic'ient for yo-i to rec-ognize tliis as an old program that 
yon no loaoer ;ieed. You halt fnrtlier printjvtg by pressing tlic attention button. You 
erase it an^I another data sef of mimerival data associated with it. 



S,Y 
S,Y 
SYS 



ERASE SOURCE. TRIALX 
ERASE PROJECT 



The system gives you the option of erasing (E) or retaining (R) the individual data set 
cataloged under the generic name PROJECT, or erasing all of them (A). 
Yoii'decide to erase all but PROJECT.!,]. 
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SYS: 


PROJECT. A 


YOU: 


E 


SYS: 


PROJECT. B 


YOU: 


R 


SYS: 


PROJECT. C 


YOU: 


A 



S,Y: ERASE VERSIONS 



SYS: 



S,Y: DELETE VERSIONS 



S,Y: POD? USERLIB 



By typing A, you cause the system to erase PROJECT. C and those data sets whose names 
would follow if prompting continued in this case, just PR0JECT.C2). 



Tlie underscore indicates the end of PROJECT data sets, and you tell the system to dis- 
pose of another obsolete data set. 



The system informs you that VERSIONS is not yours to erase, and ignores your com- 
mand. 

VERSIONS is a shared data set for which you do not have unlimited access, which in- 
cludes the right to erase. 



The DELETE will remove only your catalog entry for VERSIONS but will not affect 
the data set itself or the ov/iier's catalog. 



Now you request a list of ca-i' •« i-ji module on your USERLIB. 



SYS: 



S,Y: 
S,Y: 



ZCOXOOl START PRESENT POD DUMP 

MAIN? 

MAINIO 

SUBMATRX 

END OF PRESENT POD DUMP 

ERASE USERLIB (MAIN? } 

ERASE USERLIB (SUBMATRX) 

Individual members of partitiovu^'l (IliI,: set can be erased in this way without erasing 
the entire data set, in this casv )'our I'SERLIB. 



S,Y: POD? JOBLIBA 



This command can be used to obtain information about a library or any other VP 

data set. 



SYS: ZCOXOOl START PRESEHT POD DUMP 
PR0G14 
MAIN12 



S,Y: ERASE JOBLIBA 



An entire library data set can be erased. In addition to erasing the data set, the ERASE 
command also removes the catalog entrv, thus having the effect for cataloged data 

sets of ERASE and DELETE. 



S,Y: DDEF DD1,PS, TAPE,M220UT 

You define the copy of the data set that will reside on tape. 

S,Y: WT M220UT,TAPE,M220UT,ERASE=Y 

This command requests a nonconversational task to write the data set M220UT on 
tape. The data set must be cataloged or defined for the current session. Several optional 
parameters are defaulted such as blocking factor, line spacing, etc., described fully 

in the Command Stjstejn Users Guide. ERASE specifies that the data set is to be erased 

after completion of the WT task. 
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SYS: 

The system informs you that your request has been accepted. 

Your request for writing the tape has been accepted and assigned a separate task. The 
system will also inform you of the number of the tape onto which it was written. 
You conclude your task. 

S,Y: USAGE 

You enter the USAGE command to inquire about the amount of system resources you 
have used. Two totals are presented: 1) the amount resources used since LOGON, and 
2) the total amount of resources used since you were joined. 

The following resources are accounted for: permanent storage, temporary storage, 
direct-access devices, magnetic tapes, printers, card reader-punches, bulk input, bulk 
output, TSS/360 tasks, total time that your terminal was connected to the system, and 
CPU time used. 

S,Y: LOGOFF 
SYS; 

The svstem confirms vour LOGOFF command. 
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Example 23: Generation Data Groups 

In this example you create a generation data group (gdg) to store related data sets. Data sets are stored and cata- 
loged in a GDG with a common set of qualifiers, the order the data sets are stored being used to identify each data 
set. In the three parts of this example, you create a gdg and refer to generations of it by both relative and abso- 
lute references. 



Part 1 : Creating a GDG 

After logging on, you issue: 

S,Y: DDEF MYDISK,¥P,MYLIBE,UNIT=(DA,2311) ,- 

VOLUME= { , 230001 ) , OPTION= JOBLIB , DISP=OLD 

You define a job library that resides on a private disk. It contains the object module 
that you will execute during this task. 

SYS: 

The system informs you that the task is waiting for volume mounting. You must wait 
for the operator to mount your disk. 

S,Y: CATAIiOG GDG=TESTRSLT,GN0=5 

This command creates a generation data group catalog entry. All data sets in this group 
will have the name TESTRSLT as their leftmost qualifier. The second parameter speci- 
fies that five data sets are to be retained in one group. When more than the specified 
number has been reached, the oldest generation of the group is erased. 

S,Y: DDEF F!r01F001,PS,TESTDATA,- 

UNIT= ( TA, 9 ) , VOLUME=: ( , 230002) , DISP=OLD,LABEL=: ( , SL) 

SYS: 

The system informs you that the task is waiting for volume mounting. You must wait 
for the operator to mount your tape. 

The data set TESTDATA contains the input to the program, MAIN23, which creates 
the first generation of your GDG. 

S,Y: DDEF FT02F001,¥S, TESTRSLT (+1) 

The dsname in this data definition is a relative reference. Zero (0) refers to the most 
recent member, minus one (—1) to the one just prior to the latest, minus two (—2) to 
the one before that, etc. Your positive, nonzero reference (+1) indicates a future gen- 
eration about to be created. 

When the system has completed automatically cataloging TESTRSLT(-l-l), 
TESTRSLT(4-1) will be known as TESTRSLT(O); when a new generation is entered 
into a GDG, all of the relative generation numbers are reduced by one. If there were a 
prior generation at this time, it would become (—1). 

A data set which was written and cataloged during a previous session can be 
added to this GDG. You would simply use the CATALOG command to change the 
data set name to TESTRSLT(+ 1). 

S.Y: CALL MAIN23 

SYS : TERMINATED : STOP 

S,Y: LOGOFF 



SYS: 



The svstem confinns vour LOGOFF command. 
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Part 2: Relative Reference fo a GDG Member 
After logging on, you issue : 

S,Y: DDEF MYDISK,¥P,MYLIB2,0PTI0N=J0BLIB,DISP=0IiD 

SYS : 

The system informs you that the task is waiting for volume mounting. You must wait 
for the operator to mount your disk. 

You request a different job hbrary, containing a different version of the MAIN23 object 
module. Although it is on a private volume you need only the four parameters shown 
because it was cataloged. No indication is seen here of a volume serial number but 
it is possible that this volume could be the same as the one in Part 1. 

S,Y: DDEF FT01F001,¥S,TESTRSLT(0) ,DISP=:OLD 
S,Y: DDEF FT02F001,¥S, TESTRSLT(+1) 

This version of MAIN23 will take its input from the last GDG geueration, and then 
will create the next GDG generation. Thus, the first DDEF command above defines 
the input of MAIN23 and the second defines the output data set to be stored as a new 
generation In the GDG established in Part 1. 

S,Y: CALL MAIN23 

SYS : TERMINATED : STOP 

S,Y: LOGOFF 

SYS; 

The system confirms your log-off request. 



Part 3: Absolute Reference fo a GDG Member 

After logging on, you issue: 

S , Y : DDEF MY JOBL , ¥P , LIBE005 , OPTION= JOBLIB , DISP=OLD 

You request a job library that resides on a public volimie. No waiting for volume mount- 
ing is necessary. A third version of MAIN23 will be used. This version also receives 
its input from one of the GDG data sets, defined by the next DDEF command. 

S,Y: DDEF FT01F001,¥S, TESTRSLT. G0002V00,DISP=0LD 

You refer to the GDG generation created in Part 2 by its absolute generation name. 
The general form of this name is 

qualifier. GxxxxVyy 
where xxxx is the absolute generation number and yy the version number. The name 
of the GDG is the qualifier. The generation number is automatically incremented as 
new generations are cataloged; the version number is not. If you wish to replace a 
GDG generation by another version of the same generation, you have to supply the 
version number bv making it jiart of the absolute name vou refer to. The absolute 
names of the two' data sets created in Parts 1 and 2 are TESTRSLT.GOOOIVOO and 
TESTRSLT.G0002V00. 

S,Y: DDEF FT02FD01,VS, TESTRSLT(+3 ) 

S,Y: CALL MAIN23 

You supply a different relative generation number here. It will be added to the last 
absolute generation number, leaving a gap in the absolute sequence for possible later 
insertions ^'(i-e., the absolute names TESTRSLT.G0003V00 and TESTRSLT.G0004V00 
are omitted). 

SYS : TERMINATED : STOP 
S,Y: LOGOFF 
SYS 2 



The system confirms vour LOGOFF command. 
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Example 24: Tape- and Disk Mediym Transfers of Virtual Access Method Data Sets 

In this example, you copy vam data sets from one medium to another. Each of the following commands is illus- 
trated: TV (tape to vam), \^r (vam to tape), and v\^ (vam to lAKr). The data sets to be copied are assumed 
to exist, and are cataloged. After logging on, you issue: 

S,Y: DDEF DD¥TOUT,PS, C0PY1,UNIT=:(TA, 9) ,¥OLUME==( PRIVATE) 

You define the tape copy of the data set. 

S,Y: ¥T 0RIGIN1,C0PY1 

Data set ORIGINl already exists as a VAM data set. COPYl is the name assigned to 
the magnetic tape copy of this data set, 

SYS: 

When the data set is successfully copied, you \v:\l wivlvc a nu'ssaue indic^atitig the 
names of the input and output data sets, as vv-eil as the filr sequence numbers and 

volume serial numbers used. 

S,Y: DDEF DD¥TOUT,PS, C0PY2,UNIT=r (TA, 9) ,¥OLUME= (PRI¥ATE) /LABEL= (2, SL) 

S,Y: ¥T 0RIGIN2 

Here the output data sot name is defaulted, making uccessarN' the preceding DDEF 
command. The output daUi set iiam(> ^^•l^ be ADl'SKRID;rA00()0()l.COPY2, where 
TA^)0()001 is an arbitran' nuaulx r tn a,^s!lr^' nnicnuMiess for tlu^ full)' qualified data set 
name. 



SYS: 



A system message will inform you when the data set is successfully copied. Any failure 
to copy successfuly will result in a diagnostic message and cancellation of the command. 



S,Y: T¥ ADUSERID,TA000'001.C0PY2,C0PYBACK 

The data set just produced on a 9-track magnetic tape is copied on direct-access storage 
in VAM format. 

A system message will inform you of the success or failure of the copy operation. 

The data set named ORIGIN3 is copied into |iul)lie storage and assigned the name 
COPY3. 

A system message will inform you of the success or failure of the copy operation. 



SYS: 



S,Y: ¥¥ ORIGINS, C0PY3 



SYS: 



S , Y : DDEF PRI¥DD , ¥1 , C0PY4 , UNI T= ( DA , 23 11 ) , ¥OLUME= { , 333333 ) 
S,Y: ¥¥ 0RIGIN4,C0PY4 

You desire to copy the data set ORIGIN4 onto a private VAM volume #333333 and 
name the output data set COPY4. 



SYS: 



S,Y: LOGOFF 
SYS: 



A system message will inform you of the success or failure of tlie copv operation. 



You want to copy the data set ORICIN4 onto a private VAM volume #333333 and 
Tfie s\^stcm accepts your I .OGOFF request. 
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Example 25: The Text Editor Facility 

In this example, you use the Text Editor to create and edit data sets. The example illustrates only the more 
basic features of the Text Editor facilities. After logging on, you issue: 



S,Y.- DEFAULT REGSIZE=8 



S,Y: EDIT EX25 



S,Y: REGION REGIONl 



You enter a default value (in this example, 8 bytes) for the length you wish to allow 
for the names of regions within the data set you will edit. 



You invoke the Text Editor and specify that data set EX25 is to be processed. Since 
no DDEF command was issued for EX25, and the value of the REGSIZE parameter 
is greater than zero, the system assumes that you wish to edit a region data set with 
the following data set attributes: virtual index sequential data set organization, format- 
V records, maximum logical record length of 256 bytes, a key length of 15 bytes (8-byte 
region name and 7-byte line number), and a relative key position of 4. 



You specify a region name; you will be invited to enter text for the region indicated. 



S,Y 
S,Y 
S,Y 



0000100 LINEONEE 
0000200 LINETWO 
0000300 LINETHREE 



You enter the data lines you wish to be part of the region named REGIONl. Each 
time you press the return key, the Text Editor prompts with the next line number. 



S,Y: 0000400 UPDATE 



You decide to make a change to the previous entries. By preceding UPDATE with an 
underscore character ( ), the Text Editor Immediately executes the command. 



SYS: FOR EACH LINE ENTER LINE NUMBER AND DATA 
YOU: 0000150 INSERTl 

You add line number 150 to vour data set. 



YOU: INSERT 0000400 



You now want to continue entering data at the point where you left off earlier. You 
precede INSERT with an underscore character, since the system expects data and not 
a command following UPDATE. 



S,Y 
S,Y 
S,Y 



0000400 LINEFOUR 
0000500 LINEFIVE 
0000600 END 



You terminate Text Editor processing. Since EX26 resides in public storage, and is 
VAM organized, it will be automatically cataloged. 



S,Y: 
S,Y: 



EDIT EX25 
EXCISE 200 



Line number 200 from the current region REGIONl will be deleted. 



S,Y 
S,Y 
S,Y 
S,Y 

S,Y: 

SYS: 



INSERT 260,10 
0000260 INSERT2 
0000270 INSERTS 
0000280 _END 

LOGOFF 



Text Editor processing is terminated. 
You decide to terminate your conversational task. 
The system accepts the LOGOFF request. 



Example 26: The Text Editor Facility 

In this example, you make more extended use of the updating capabilities of the Text Editor. The example is 
probably more complex than you might expect for a single terminal session, but it will serve to portray the 
scope and flexibility of the editing commands that are available to you. After logging on, you issue: 

S,Y: DEFAULT REGSIZE=8 

You enter a default value (in this example, 8 bytes) for the length you wish 
to allow for the names of regions within the data set you will edit. 



S,Y: EDIT EX26 



S,Y: REGION REGIDN2 

S,Y: 0000100 LINE! 

S,Y: 0000200 LINEB 

S,Y: 0000300 LINEC 

S,Y: 0000400 LINED 

S,Y: 0000500 LINEE 

S,Y: 0000600 LINEF 

S,Y: 0000700 LINEG 

S,Y: 0000800 LINEH 

S,Y: 0000900 LINEI 

S,Y: 0001000 LINEJ 

S,Y: 0001100 END 



S,Y: EDIT EX25 
S,Y: REGION REGIONl 



You invoke the Text Editor and specify that data set EX26 is to be processed. Since no 
DDEF command was issued for EX26, the same data set attributes are assumed as for 
EX25 in the previous example. 



You define a region name for EX26. 



You enter the lines for REGION2 of data set EX26. You then terminate Text Editor 
processing. Since EX26 is VAM organized and resides in public storage, it is auto- 
matically cataloged when the Text Editor is invoked. 

You again invoke the Text Editor and specify that data set EX25, region REGIONl, 
prepared in the previous example, is to be processed. 

The system prompts you to enter a command. 



S , Y : NUMBER300 , 500 , BASE=300 , INCR:=50 

Lines 300, 400, and 500 are now numbered 300, 350, and 400. 

S,Y: DISABLE 

This optional command makes the following data set changes provisional. These 
changes can be made permanent by issuing an ENABLE command, after you are 
satisfied all changes were entered properly. 

S,Y: EXCERPT EX26,REGI0N2, 600, 1000 

You wish to excerpt lines 600 to 1000 from REGION2 of data set and insert these lines 
in the current data set EX25. 

S,Y: CONTEXT ,LAST, STRING1=LINE, STRING2=LINE NUMBER 

The current region is searched for all occurences of the character string line. Wherever 

it is found, LINE NUMBER will replace the occurrence. 

Note: This facility is useful for symbol replacement in source language data sets. 

S,Y: ENABLE 

Up this this point, the revisions made since DISABLE was issued above were tempor- 
ary. With the execution of the ENABLE command, these revisions are now perma- 
nent. A STET command, on the other hand, would have deleted all changes made since 
the DISABLE was issued. 

Part II: Examples 69 



S,Y: 



SYS: 
YOU: 



CORRECT N1=100,SC0L=:0 

You now want to remove a single eliaracter from a line, starting with tlie first column 
(relative column ). Standard correction characters are assumed, by default. 



IiINEONEE 



The result will be LINEONE. 



S,Y: EDIT EX26 



S,Y: REGION REGI0N2 



You reopen the text editor for data set EX26. 



The current region is now REGION2. 



S,Y: LOCATE 0,LAST,LINEF 

You want the entire data set EX26 to be searched for the character string LINEF. 



SYS: 0000600 LINEF 



The hne in which LINEF is first discovered is displayed at the terminal. 



S,Y: 


LIST100,LAST 


S,Y: 


END 


S,Y: 

SYS: 


LOGOFF 



The current region (REGION2) will be displayed. 
You terminate Text Editor processing. 

The system accepts your LOGOFF command. 
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Example 27: Use of Procedure Definition (PROCDEF) 

In this example, you create a procedure, tailored to your needs, to be called at a later time just as if it were a 
system-supplied command. After logging on, you issue: 



S,Y 
S,Y 
S,Y 
S,Y 

S.Y 



PROCDEF FTNPGM 

0000100 PARAM MODULE 

0000200 FTN MODULE 

0000300 PRINT LIST. MODULE { 0) ,, ,EDIT, ERASE 

0000400 __END 

You have defined a procedure which will now be available for calling by he name 
FTNPGM. It allows you to define a module name for compilation. By calling the 
established procedure, and giving a unique module name to use, both the compilation, 
and printing of the resulting listing data sets can be accomplished. 



S,Y: FTNPGM MYMOD 



The procedure established above (via PROCDEF) will now be activated. The actual 
module name (MYMOD) will replace the dummy module name (MODULE) wherever 
it occurs. 



S,Y 
S,Y 
S,Y 
S,Y 



S,Y: 

S,Y: 



PROCDEF SETUP 

0000100 PARAM ST0RED=|1, ISD:=|2, SLIST=|3, CRLIST=|4 
0000200 DEFAULT ST0RED=|1, ISD=|2, SLIST=|3, CRLIST=|4 
0000300 __END 

This procedure will now be available to vary the default values for certain FTN 

parameters. 



SETUP Y,N,Y,Y 



FTN MODI 



Some FTN parameter default values have been adjusted to suit your requirements. 
You now proceed with the compilation of MODI with the adjusted default values. 



S,Y: PROCDEF ZLOGON 



Here the operand (ZLOGON) for the PROCDEF command is shown without the use 
of a keyword. 



S,Ys 
S,Y: 



S,Ys 
SYS J 



0000100 DDEF STOREIT,VP,MYLIB, OPTION=JOBLIB 

0000200 _END 

You decide that each time you LOGON you would like a certain job library defined 
for any object modules }'ou may produce. By assigning ZLOGON as the procedure 
name, you insure its automatic call as soon as LOGON is accepted. MYLIB is assumed 
to be an existing cataloged data set. Since PARAM was not used you cannot change 
any of the values in the DDEF command. 



LOGOFF 



The LOGOFF command is accepted by the system. 
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Example 28: The User Profile Facility 

In this example, you are shown how to manipulate your copy of the prototype user profile, made available to 
you at JOIN time. This prototype profile is a member of your user library (USERLIB). After logging on, you 
issue: 

S,Y: DEFAULT I)SORG=VS 

The data set organization field was originally defaulted by the system to VI (index 
sequential). You will now be using mostly VS organized data sets, so you set the default 
value (for the DDEF command) to virtual sequential (VS). 

S,Y: SYNONYM DOPROG=:FTNPGM 

The FTNPGM procedure named in Example 27 can now be invoked with either name: 
DOPROG or FTNPGM. 

S,Y: SYNONYM FINIS=DISPLAY 'TASK COMPLETED' 

When FINIS is invoked, the message: TASK COMPLETED will appear on SYSOUT. 



S,Y: PROFILE 



S,Y: FINIS 

SYS: =TASK COMPLETED 



S,Y: LOGOFF 
SYS: 



The above changes apply to your session profile only. You now decide to make the 
changes a permanent part of your user profile. 



Since the PROFILE command was invoked, FINIS may be used in all subsequent 
sessions to produce the same message. 



The system accepts your LOGOFF command. 
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Part III. Appendixes 



The appendixes give detailed information on the use 

of Tss/:i60 by the Fortran programmer; they contain 
the following information: 

A. Use of the Fortran Compiler: describes source 
statement entry and correction and compiler diag- 
nostics, output, and restrictions. 

B. PCS and Fortran Object Programs: describes the 
use of PCS when debugging Fortran object pro- 
grams at the source language level. 

C. Programming Considerations: describes the pro- 
gramming techniques that yield more efficient pro- 
grams, the effect of compiler optimization on the 
use of PCS, system naming conventions, library 
management, and several miscellaneous consider- 
ations. 

D. Assembler Language Subprograms: describes the 
techniques and conventions of incorporating as- 
sembler-language subprograms into Fortran lan- 
guage programs. 



E. Specification of Data Set Characteristics: describes 
the various record formats and data set organiza- 
tions available to the Fortran user and explains 
how and when to specify these characteristics for 
a data set. 

F. Attention Considerations: describes the system's 
response to the attention key, which is a function 
of the system's current activity. 

G. Command Formats: describes the notation used 
to present commands and gives the general form 
of each of the tss/360 users' commands. 

H. Carriage and Punch Controls: lists the extended 
ANSI FORTRAN Carriage control and punch control 
standard characters. 

I. Sample Program: describes the sample program 
that is distributed with the tss/360 Fortran iv 
compiler. 
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Appendix A. Use of the FORTRAN Compiler 



This appendix discusses the following topics: 

1. Entry and correction of Fortran source statements: 
the format of keyboard and card source statements, 
efficient source statement correction techniques, 
and entering hnes from the keyboard that can later 
be punched and reentered as cards. 

2. Compiler diagnostic action: the format and eflFect 
of diagnostic messages and error severity codes 
produced by the compiler. 

3. Compiler options and listings produced: ftn pa- 
rameters, listing options, indirect references to 
FORTRAN IV Subprograms, and the destinations of 
all compiler output. 

4. Compiler restrictions: simple and complex source 
program restrictions. 



Entry and Correction of FORTRAN 
Source Statements 

This section discusses the following topics: 

1. The format of Fortran source statements entered 
at the terminal keyboard, at the terminal card 
reader, and at a card reader at the central com- 
puting facility. 

2. Guidelines for efficient source statement correction 
techniques. 

3. Techniques for entering Fortran source keyboard 
lines so that they can be punched and reentered 
in card form for compilation. 

Format of Source Lines 

A FORTRAN source statement is composed of one or 
more individual source lines. A source line consists of 
a single card or a single line of keyboard input. There 
are five types of lines: 

1. Comment lines 

2. Initial lines 

3. Continued lines 

4. Continuation lines 

5. END lines 

The following paragraphs describe each of these types 
of lines for both card and keyboard format. 

For both card and keyboard statements, the maxi- 
mum number of text characters that can be contained 
in a statement is 1320. Card input lines normally con- 



tain 66 text columns per card (columns 7-72); thus, 
an initial line and 19 continuation lines are allowed. 
The number of keyboard lines contained in 1320 char- 
acters depends ujion the position of the first character 
in each line and the last character given prior to issu- 
ing a carrier return in each line. 

Card Format Line (Both Nonconversafiona! and 
Console Card Reader} 

Comment lines are those lines with the letter C in 
column 1. The compiler ignores these lines, but 
includes them in the source listing. Comment lines 
may appear anyw^here within the source program 
except immediately preceding a continuation line. 
Initial lines in card format are lines with the 
characters zero or blank in card column 6. An initial 
line is the first line of a Fortran statement. Con- 
tinued lines are lines w^hose content does not complete 
the statement; that is, the statement is continued on 
the following line. In card format, a line is not known 
to be a continued line until the following line is in- 
spected. A continuation line is a line in a statement 
other than the initial line, that is, a line whose con- 
tent is a continuation of the preceding line. In card 
format, a continuation line must contain a character 
other than zero or blank in card column 6. An end 
line is a line containing the Fortran end statement. 
Every source module must terminate \^ith an end line. 

Character Sets — Card format 

The CA and cb commands transfer control to the 1056 
card reader, and specify the character set to be used. 
CA is used to convert card input from 1057 card punch 
code to EBCDIC. CB specifies conversion froiTi 029 key- 
punch code to EBCDIC. 

Keyboard Format 

Keyboard lines are different from card lines in two 
general ways: (1) the rigid column format of card 
lines is relaxed in keyboard format and (2) the maxi- 
mum number of characters in a line is greater (as 
many as 130, depending upon the type of keyboard 
being used). 

Keyboard cofnment lines are similar to card com- 
ment lines in that a keyboard comment line is identi- 
fied by the letter C in the first typeable position, and 
may appear anywhere within the source program ex- 
cept immediately preceding a continuation line. Note 
that the statement C = I.O, for example, if begun 
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ill l>'pe position 1, \\'onld be treated as a comment line. 
A good gt^iKM-al practice' is to scH tab stops and make 
use oi thi- tab key. This practice will ( 1 ) ensure^ that 
a stateriieiil btginning with th<^ letter C will nor in- 
aclverientl)- be ])roeessed by the compiler as a corn- 
ment line, and (2'' ]:>ro\ide a simple method for 
foi-matlinL:: ilic in[H!l pa-oiiram on tlie tta-minai papc-r — 
separating stai-^ment numbers from statement text. 
etc.: liiost exarnj)l(^s in this appi^ndix imply or t^xpressly 
describe ust^ of tabs. I'he c/ompiler considers a tab the 
ecjuivalent of o]u blank, when entering kc^yboard lines. 
Thus, \\ Iv^n refcr(MK'e is made to l)]anks, tab or blank 
is im})]i(xL unli^ss spcx'ifically stLited otherwise. 

Initiii] line^ in kc^)'board fijrmat can contain a state- 
ment nmnber, as in card format. This statement niim- 
hv\ ran he i^in in any ty]K^ ijosition (lu^reafter referred 
fo as position) and is distinguished from the text por- 
tion ol tlu- lirif^ !)}■ being numeric rather than having 
an al]ihiab(^tie charactc^r as tlu- first character. State- 
ment numlxas can be ]ireeed(^d b\' any nmnber of 
blanks or tabs. A statement number can contain from 
on(~' to fi\'(^ numeric (baractin's, eac h of ^^'hich can be 
])receded or followed by any number of blanks, A 
statcMuent nmnber is ternu'nated when either five 
nmneric cliaracters ha\'e been encountered or a non- 
num(^]-ic- nonbhmk cbaractei" is encountered, which- 
vwr occurs first. \ stati^ment number c^annot be con- 
tainc^d on morc^ tlian onv line. Following the statement 
numbc^r is tht^ linc^ t(xL The tc^xt must be separated 
from the statement numbca" by at least one blank, or 
by the character zero. (The user is warned that the 
entry of a terminal line with a statement number of 
100, for example, immediately follow-ed by the text 
of the statement — i.e., wdth no intervening blank — 
causes the second zero of the statement number to be 
treated as tlie ciiaracter sei:>arating the statement num- 
ber and tli(^ tc^xt. and the statc^ment number will be 
considered b\^ the compiler to bc^ 10, not 100.) Th(^ 
text portion of n line is terrninatixl either by a hy]ihen 
(-} follov/ed h\' a carrier rt^turn (if th(^ line is to be 
continued V oj- Ijy a return preceded b}- a character 
otlu.r than a. hyphen (if thc^ linc^ is not to be con- 
tinued). 

A keyboard continued line is one ending w^ith a 
hyphen and a carrier retium. The hyphen, of com*se, 
is not considered part of the text. 

A keyboard continnatioti hue is the line following 
a continued line. A continuation line cannot have a 
statement number. The text portion of a continuation 
line can begin in any position and can be preceded 
by any number of blanks; it must also be preceded 
by a single character other than blank or zero. This 
single character is equivalent to the column 6 con- 
tinuation character of card lines and thus is termed a 



"floating continuation character.'' In effect, the first 
nonblank, norr/ero character of a continuation line 
is treated as a coritinuation character. The floating con- 
tinuation character, which is not considered part of 
tlu^ text, is useful for two reasons: 

1. It allo\\'s the us(^r to tab the continuation Hne (so 
that it will fall directly l>eneath the preceding line) 
without thereby causing a blank to be inserted in 
his text; blanks or tabs are ignored in continuation 
lines until the floating continuation character is en- 
countc^red. This is nu important consideration, for 
c^xampl(\ in cases where a line break must occur 
in the nu'ddle of a ciiaracter string that does not 
permit embtxlded l)lanks. 

2. If lines entered] \ia the console are to be punched 
and latca- leentered in card format, the floating con- 
iinuation characlcr makes this possible (this is de- 
scribcxl later in this appendix). 

A k( yboard kxd line is a line containing the Fortran 
KM) stateuK/nt. h]\-ery source module must terminate 
witli an END line. 

Character Sets — Keyboard Format 

KA and KB are used to specify the character set to 
be used during keyboard input, ka specifies the full 
EBCDIC: character set during input, kb indicates that 
the lower-case characters ( a-z and ! " <? ) be translated 
into their upper-case equivalents (A-Z and $ i^ @ re- 
spectively). 

It sliould be noted that ka is in effect only for the 
command during which it is issued. The system un- 
derscore ( inviting a new command ) reverts to the 
KB folded mode. 

Mixed Card and Keyboard Input 

FOHiirw source statements entered at the terminal 
ma\ i).- from cards, from the kc^)'board, or from a mix- 
ture of tlic two. If tiie first linc^ of a statement is from 
a cruel, all lines in that statement must also be on 
cards. If the first linc^ in thc^ statcniient is from the 
kcA'boarcb the following lines may be from the key- 
board or from cards. Once the source of a statement 
becomes cards, however, keyboard lines may no longer 
be included in that statement. 

Once a line is entered at the terminal in either card 
or keyboard form, the source of the line (card or key- 
board ) is retained evc^n though the line may be stored 
in a prestored data set and later presented to the com- 
piler from that soiu'ce. Thus the above mixed-input 
rules apply for both terminal input and later correc- 
tions to that input. 

The procedure for changing sources is as follows. 
Keyboard lines will be expected by the system until 
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c, CA, or CB is entered at the keyboard. Once these 
characters have been entered, input hnes are expected 
to be on cards. If a card containing k, ka, or kb is en- 
countered, Hnes are once again expected from the 
keyboard. (See Terminal Users Guide for sysin de- 
vice selection and data translation). 
Examples: In these examples, the following notes 
apply: 

1. The letter t rejiresents depression of the tab key. 
The keyboard position at which the carrier is to be 
positioned as the result of a tab is implied by the 
position of the next nonblank character in the 
example. The following examples assume tab stops 
are set such that the first depression of the tab key 
causes the carrier to be positioned at type position 
6 and the next depression causes positioning at 
type position 7. 



EXAMPLE FORMAT 



CARD OR TYPE POSITION 



1 


567 


1 Card C 


COMMENT 


sfoTE: Comment line. 





2 Card 50 Y=1,0 

Note: Initial line with a statement number. 

3 Card Y=:2,0 

Note: Initial and continued line, no statement nnmber. 

Card X+B 

Note: Continuation line. 



4 Key C 

Note: Comment line. 



COMMENT 



5 Key 9 Y=3.1416 
Note: Initial line with a statement number. 

6 Key loot tZ=1.0-(CR) 

Note: Initial and continued line; tab to column 6, tab again 
to skip the continuation character position, then at position 7 
type first text character. 

Key t X+3.0*B 

Note: Continuation line; tab to position 6 for floating continu- 
ation character, with text beginning in column 7. 

7 Key 200t tY=1.0-(CR) 
Note: Initial and continued keyboard line. 

Key CB 

Note: To note a card line follows. 

Card X4-3.0-B 

Note: Continuation card line. 



2. The characters (cr) represent a carrier return. 

3. The character (-) is used as the continuation char- 
acter by system default. 



Efficienf Correction Techniques 

Conversational correction of fobtran statements is 
normally made at one of two points in the compilation. 
The first, termed here local correction, occurs follow- 
ing the compiler's scan of the statement just entered 
and its printing at the terminal of any diagnostic mes- 
sages associated with that statement. The second point 
at which corrections are normally made occurs when 
the entire program has been entered (i.e., when the 
END statement has been entered) and a message similar 
to, "^lODiFiCATioNS? ENTER Y OR n" has bccn typed at 
the terminal. Corrections made at this point are termed 
here g^lohal corrections. The distinction between global 
and local corrections (and between different types of 
local corrections) is important in that the user can 
minimize the amount of processing required for a given 
compilation by being aware of the effect corrections 
have on the compilation process. The following para- 
graphs describe efficient correction techniques in de- 
tail. Before proceeding to this detailed discussion, 
however, a general correction rule that applies in most 
cases can be given: the most efficient correction tech- 
nique is to correct erroneous statements immediately 
after they are entered and the diagnostic is produced. 
This is the most natural time to correct an erroneous 
statement, and is a convenient guideline to use. 

After all global corrections have been made, the 
entire source program is rescanned, beginning with the 
first source Hne of the program. When local corrections 
are made, reinitiation of the source scan may or may 
not be required, depending upon the type of correc- 
tion made. It is desirable, of course, to minimize the 
number of source scans. For this reason, corrections 
noted below as reinitiating the source scan generally 
should not be made until the time for global correc- 
tions is reached. This rule does not apply w^here failure 
to make a correction would result in many other diag- 
nostics, such as an error in entering variables in a 

DIMENSION list. 

Discussion of compiler response to various types of 
local corrections can be quite complex if all possible 
combinations of conversational card and keyboard 
corrections are covered. This section does not discuss 
all possible types of corrections specifically, but gives 
sufficient descriptive material and examples so that the 
compiler response in any given case can be deter- 
mined. 
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Discussion of compiler response to local corrections 
requires a definition of three terms: 

1. Partial statement — a statement currently being en- 
tered. For card input, a statement is partial until 
a noncontinuation line is entered to terminate the 
statement. Keyboard statements are partial until a 
line is entered that is not a continued line or a com- 
ment line. An example of a partial keyboard state- 
ment is the following (i.e., the line is noted as being 
a continued line, but the continuation line has not 
yet been entered): 

X = A + B"(CR) 

2. Tentative statement — the last complete statement 
entered to the compiler. A keyboard statement be- 
comes tentative when the last line of the statement 
is not a continued line, causing the line to be 
scanned by the compiler. This statement will re- 
main tentative until a new statement is completely 
entered. Thus a new statement may be begun with- 
out changing the tentative status of the previous 
statement, but once the new statement has been 
completely entered, the statement held in tentative 
status becomes committed (see below). Entry of 
comment lines does not affect the status of tentative 
statements. Such lines are included in the listing 
but otherwise ignored. 

3. Committed statement — the statement preceding a 
tentative statement. The relation between a com- 
mitted statement and a tentative statement is iden- 
tical to the relation between a tentative statement 
and a partial statement: once a statement becomes 
tentative, the preceding statement becomes com- 
mitted. In the foil owning example, entrance of the 
(non-continued) second statement causes the sec- 
ond statement to become tentative and causes the 
first statement to become committed. Both are 
keyboard lines. 

X=A + BfCR) 



Entry of comment lines does not affect the status 
of tentative or committed statements — such lines are 
included in the listing but otherwise ignored. 

The relation between the above types of statements 
and compiler response to corrections is as follows: 

1. Tentative and partial statements can be corrected 
without causing a reinitiation of the source scan. 

2. Correction of committed statements causes reiniti- 
ation of the source scan from the beginning of the 
program. 

3. Insertion of a new statement betw^een a committed 
and a tentative statement does not cause a rescan 



of the entire program. Such an insertion causes a 
rescan of the tentative statement, however. 

The above rules can be more easily understood by 
inspection of the following examples. In these exam- 
ples, line numbers are seven digits with the last two 
digits zero, the format in which they are printed by 
the system A line number underneath a number sign, 
:^, is a correction line. Such line numbers need 
not be seven digits long and need not have two 
trailing zeros. This notation is consistent with the 
system convention by w^hich printing of a diag- 
nostic is followed by printing a number sign solic- 
iting a correction by the user. The correction line 
numbers are followed by a comma, also consistent 
with system conventions. Line numbers preceded by 
a percent sign (%), where the % is entered by the user, 
are unsolicited corrections — that is, corrections orig- 
inated by the user and not arising from the system's 
diagnostic action. 

Conversational corrections also affect the source list- 
ing, as follows: 

1. Source statements and their associated diagnostics 
are not added to the source listing until the state- 
ments are committed. Thus, the terminal listing may 
contain many diagnostic messages, but the source 
listing contains only those diagnostics not corrected. 

2. Corrections causing reinitiation of the source scan 
cause the source listing plus diagnostics associated 
with the previous source scan to be lost, since the 
results of the new source scan replace those of the 
previous scan. 

Example 1. 



LINE XO. FOBIVIAT 



CARD OR TYPE POSITION 



567 



0000200 Key 
0000400 Key 
0000600 Key 



Z=1.0 
Y=2.0 
DO 10 1 = 1,10 



Note: In this example, all lines begin in type position 1, a 
dangerous practice as any lines beginning with a C are con- 
sidered comment lines. 

0000800 Key X{I)r=I 

Note: Causes a diagnostic, as no DIMENSION (or equivalent) 
statement is included. 



# 
100, 



Key DIMENSION X(10) 



Note: Making a correction prior to the committed statement 
(line 600) causes reinitiation of the source scan. Note that this 
statement could have been inserted at 700 rather than 100 
without causing reinitiation of the source scan. 
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Example 2. 



CAI^D OR 1 YPE POSITION 



567 



0000100 Key t tZ=10-0(CR) 

0000200 Key t tY=3.0-{CR) 

0000300 Key t X=B-{CR) 

0000400 Key t X+C-(CR) 

Notes: 

The t indicates tlie tab key has been depressed, as discussed 
earher. 

The nser is requested to enter h'ne 500, bnt he reah'zes that 
Hne 300 must be corrected. When the correction of hne 300 is 
made, the statement starting at hne 200 is in partial status. 
This correction does not cause reinitiation of the source scan. 

00005001300, Key t X-B-(CR) 

Note the use of floating continuation characters in lines 300 
and 400. 

0000500 Key t X+D(CR) 

Note: Entry of line 500 completes the statement. The compiler 
then processes the composite statement Y=3.0— B+C+D- 



Example 3. 



CARD OR TYr»E POSITIOX 



567 



0000400 Key X=1(CR) 

0000500 Key B=2(CR) 

0000600%400, Key X=2 ( CR ) 

Note: The user is requested to enter line 600. When line 
500 was entered, the statement of line 400 became committed. 
The correction of line 400 thus causes reinitiation of the soiu'ce 
scan. 



Entry of Keyboard Source Sfafernents for Later 
Punching and Recompilation 

The entry of source statements sucli that they can be 
later punched out and reentered in card format is 
governed by the following considerations: 

1. Source lines reside in a line data set in a format in 
which the initial input source line is preceded l)y 
eight characters — a 7-byte zoned-decimal key and 
a character specifying to tss/360 that the source 
line was entered in card form or at the terminal 
keyboard. 

2. A continued line (hyphen preceding the carriage 
return) when punched and reentered in card for- 
mat retains the hyphen unless precautions are taken 
to remove it (see below). 

3. Keyboard input positioning requirements are much 
more flexible than for card input. 



Therefore: 

1. Keyboard input lines must contain all statement 
numbers in columns 1-5. 

2. Keyboard input lines must contain no tabs. 

3. Keyboard input lines must contain all floating con- 
tinuation characters in position 6. 

4. Text must be contained between position 7 and a 
position not greater than 72, as source card lines 
cannot be scanned beyond column 72 for characters 
to be included in the text. 

5. Continued lines must all contain the hyphen con- 
tinue character in a column such that the punch 
command (see below) will cause the hyphen not 
to be punched. 

6. The column chosen in the punch command for 
termination of punching must be such that no lines 
contain text beyond this column. 

If input lines are prepared in accordance with the 
above rules, the line data set can then be punched, 
using the punch command. The parameters supplied 
in the punch command are: startno, the position in 
the source line as it resides in the line data set that 
will be punched as column 1 of the card; and endno, 
the position in the source line that will be last 
punclied in the card. If the program contains no con- 
tinuation lines (one line per source statement), good 
choices for startno and endno would be 9 (to skip 8 
})ytes — the 7-byte line number and the card or key- 
board character) to 88 (to punch up to 80 columns of 
text from each source line — this choice assumes no 
source lines contain more than 80 columns of text). 
The selection of 9 for startno will nearly always be 
the proper choice. The endno selection will vary, of 
course, depending upon position of text and continu- 
ation characters in the program source lines. 



Compiler Diagnostic Acfion 

This section d(\scrjb(\s tlic^ format of all diagnostic 
mc^ssages produced by tlie tss :if',() fohihax compiler. 
It includ{\s a d(\scription of tlie error severity code and 
error Un-el associaltxl with each message, and d(\scri]i(\s 
the c^nect of error s(^\^e]-ity upon rc^quests to execute 
tlie compiled program. Reefer to Syslcin Messa<j:es for 
a description of c^acli diagnostic and tlie source pro- 
gram c^rrors that cause it. 

The- FORTPvAN compiler issiK\s diagnostic m(\ssa^es 
for source program (^rrors, for \'io]ations of compili^- 
space and size rc\strictions, and for apparent machine 
terrors. Thesc^ mc\ssag(^s are includ(^d in th(^ soiu'ce 
program listii^ig produc(^d by the compiler if a listing 
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is requested; they are also printed at the terminal in 
conversational mode. (A detailed description of the 
destination of diagnostic messages for all combinations 
of input sources, options requested, etc., is given in 
Table 3 later in this appendix.) 

Nearly all compiler diagnostic messages are printed 
on one line. The format of this line is: 



number code 



text 



( In the two-line messages, the second line follows the 
first and omits the number and code fields. ) 

The %umber" parameter is the source program line 
number {not a fobtran statement number) of the 
first line of the statement to which the message ap- 
plies. Messages concerning errors that the compiler 
does not associate with any specific statement carry 
the line number of the source program end statement. 

The "code" parameter is a one-letter indicator of the 
severity of the error and the action taken by the com- 
piler. The letters used, the severity of errors associated 
with each letter, and a brief description of compiler 
action taken are given in Table 2. 

When a fobtran main program is to be executed 
using the call command, the module named in the 
CALL command and all modules called by this module 
are inspected during the loading process to see wheth- 
er any have been compiled with level-2 errors (se- 
verity codes E or F). Any module containing an error 
level of 2 causes a diagnostic message naming the 
module and the error level to be printed on the user's 

SYSOUT. 



The "text" parameter in diagnostic messages is a 
verbal description of the condition that caused the 
message. Names, statement numbers, etc., from the 
FOBTBAN source program being compiled are included, 
where applicable. In addition to information to locate 
and identify the condition, often "text" specifies the 
actions taken by the compiler in F-code messages. 
Occasionally the object code listing must be inspected 
to determine the actual compiler action. 

Occasionally, two or more identical messages are 
produced for a source program statement in which 
the erroneous situation appears to occur only once. 
This is due to the conjunction of two conditions: (1) 
the error is not serious enough to force the compiler 
to abandon processing the statement and (2) the 
statement is of a kind that requires more than one 
scan by the compiler. Examples of such conditions 
are ( 1 ) when an argument of a statement function is 
in error and the argument is used more than once in 
the statement function definition and (2) when cer- 
tain types of errors are made in an i/o statement list. 

The compiler does not attempt to make systematic 
checks for machine failure. However, in the course 
of processing, it may test for conditions that ought 
never to arise, according to the design of the compiler. 
If any such condition is detected, an A-code message 
is issued advising of machine or compiler error. These 
messages should be brought to the attention of system 
maintenance personnel. 

Although the conversational user may know that a 
certain diagnostic is to appear at a particular place in 



Table 2. Compiler Diagnostic Action 



CODE 



DESCRIPTION 



W Warning, The message is a warning that the compiler has detected either a situation 

Level- 1 error that may not be as the programmer intended or a use of a language feature 

that is acceptable to the TSS/360 FORTRAN compiler but is unacceptable 

to other implementations of IBM System/360 FORTRAN. In either case, 

the statement is compiled exactly as written. 

E Serious, The message is a notification that the compiler has detected a serious source 

Level-2 error program error. Compilation continues, completely ignoring the offending 
statement, and the object program is generated as if the statement had not 
occurred. (Although the offending statement is deleted from the compilation, 
the program is marked as containing a serious error if the offending state- 
ment is not replaced. The presence of a serious error causes a diagnostic 
message to be printed on the user's SYSOUT data set at load time. 

F Serious, This message is also a notification that the compiler has detected a serious 

Level-2 error error. The compilation continues by partially compiling the statement. The 
effect of F-code errors on the generated object program can frequently be 
determined from the text of the message, but occasionally examination of 
the object code listing is required. Object program execution is not 
recommended. 

A Serious, The message is a notification of a situation serious enough to prevent con- 

Level-3 error tinning the compilation. After issuing an A-code message, the compiler 
exits to the command-language level. These messages are concerned with 
violation of compiler size or space restrictions. 



Statement compiled 
as written 



Statement deleted 



Statement partially 
compiled 



Compilation discon- 
tinued; no object 
module produced 
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his program, or he may recognize a diagnostic as it 
begins to appear at the terminal, he should not try to 
save time by pressing the attention key to prevent full 
diagnostic text printout. Little time can be saved, 
since a run command must be entered after an atten- 
tion, and much time may be lost, since the compiler 
will reinitiate compilation with the first source line 
if certain of its diagnostics are so interrupted. 



Compiler Opfmns and Listings Produced 

This section discusses three topics: 

1. The parameters that must be supplied to the com- 
piler when the ftn command is given. 

2. The listings produced by the compiler when re- 
quested by user-supplied parameters. 

3. A list of FOETRAN IV Supplied subprograms which 
can be called by the compiler as a result of ex- 
ponentiation, interrupt handling, i/o processing, or 
STOP or PAUSE statement usage. 

4. The destination of all output from the compilation. 

FORTRAN Parameters 

After issuing a ftn command, the user must enter a 
parameter providing the module name for this com- 
pilation. A list of compiler parameters is given in 
Figure 7, and explained in detail following the figure. 
The notation used in Figure 7 is explained in Appen- 
dix G, "Command Formats." 

Some of the compiler parameters listed in Figure 7 
must be provided by the user; others may be left un- 
specified and default values will be chosen. In some 
cases the user will be prompted for missing para- 
meters; in other cases he will not. Figure 8 shows the 
relation between parameter specification and the com- 
piler conditions. In Figure 8 the terms "explicitly de- 
faulted" and "implicitly defaulted" are used as dis- 
cussed below: 



Explklfty Defaulted 

A comma is issued immediately following entrance of 
the preceding parameter, rather than entering a value 
for the new parameter followed by a comma. For ex- 
ample, module alpha, with prestored source lines, is 
to be compiled, explicitly defaulting the version iden- 
tification, but supplying values for all other parame- 
ters. The proper parameter description is: 

ALPHA, Y„Y,Y,Y,Y,Y,Y,Y,Y 

tmplkifiy Befaulted 

In the example of the preceding paragraph, the user 
could depress the return key following entrance of the 
Y specifying an isd is to be produced. This action 
causes all parameters following the isd option to be 
implicitly defaulted. 

The parameters shown in Figure 7 are described 
as follows: 

NAME — specifies the name of the object module to 
be created. Prior to selecting the module name, 
the user should refer to Appendix C for a discus- 
sion of TSs/360 naming conventions, in order that 
a module name not be chosen using a reserved 
system name. The source data set for the module 
is named by appending a period and the module 
name to the characters source. For example, mod- 
ule ALPHA will have a source data set name 
souRCTi.ALPHA. The module name must be unique 
to the library that includes it (i.e., it must not be 
the same as any entry point, control section name, 
or module name in that library). Similarly, the 
module name must not be the same as any com- 
mon block, FUNCTION, SUBROUTINE or any variable 
name used within the program being compiled. 
The name consists of one to eight alphameric 
characters, the first of which must be alphabetic. 
It is recommended that module names be six or 
fewer characters, as discussed in Appendix C. 

Default: None; a module name must be specified. 



OPERATION 



FTN 



NAME = module name 



STORED 



= {n} ] 



:, VERID=version identification] [, ISD={YlN}] 
, SLIST={Y|N}] L OBLIST={Y|N}] 
[, CRLIST={Y|N}] [, STEDIT = {Y|N}] 
:, MMAP={Y|N}] L BCD={Y|N}] 
:, PUBLIC ={Y I N}] 
LLISTDS={Y|N}] 
[,LINCR=: (first line number, increment)] 



Figure 7. FORTRAN Parameters 
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Parameter 


User Action 


System Action 


Nonconversational Mode 


Conversational Mode 


Modu le 


Expl icitl)/ or 
implicitly defaulted 


Tosk terminated 


Prompting for parameter will occur 


Not defaulted 


Processing continues with 
user-supplied parameter 


All other options 


Explicitly defaulted 


Default values selected 


Implicitly defaulted 


Default values selected 


Not defaulted 


Processing continues with 
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Figure 8. Compiler Parameters Default and Prompting Description 

STORED — specifies whether or not the source data 
set is prestored (if so, it must have been named 
souRCE.module ) . The allowable values are Y or 

N. 

Default: N. 

VERID — specifies the version identification to be as- 
signed. The version identification consists of one 
to eight alphameric characters. 

Default: If a version identification is not assigned, 
the version of the object module may be deter- 
mined by using the system supplied "time stamp." 
A time stamp is always produced by the system; 
it gives the current time and date at which the 
compilation begins. This time will be different 
from the time at which any other compilation be- 
gins, thus allowing positive identification of the 
compilation output. The compilation listing will 
contain an edit of the time stamp in the following 
format: mo/dd/yy hh:mm:ss giving the time of 
the compilation in month, day, year, hour, min- 
ute, and second. 

ISD — specifies whether an internal symbol dictionary, 
which is required for extended use of pes, is to 
be produced. The allowable values are Y or N. 



An ISD should not be requested unless pes is to 
be used with this compilation since the request 
for an isd also inhibits compiler optimization. See 
Appendix C for a full discussion of this topic. 

Default: Y. 

SLIST — specifies whether a source program listing is 
to be produced. The allowable values are Y or N. 

Default: Y. 

OBLIST — specifies whether an object program listing 
is to be produced. The allowable values are Y or 

N. 

Default: N. 

CRLIST -- specifies whether a cross reference listing is 
to be produced. The allowable values are Y or N. 

Default: N. 

STEDIT — specifies whether the symbol table is to be 
listed. The allowable values are Y or N. 

Default: N. 

MMAP -— specifies whether a storage map is to be pro- 
duced. The allowable values are Y or N. 

Default: N. 
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BCD — specifies whether mput inckides bcd (binary- 
coded decimal) or ebcdic form of special char- 
acters. The allowable values are Y for bcd or N. 
If Y (bcd) is chosen, either bcd or ebcdic injiut 
may be used. Thus ebcdic corrections may be 
made to bcd source lines. This ojotion is included 
for compatibility with Fortran programs written 
for previous ibm systems. If the user is uncertain 
as to whether his program uses the bcd or ebcdic 
form of special characters, the user should choose 
the Y option, thereby giving himself complete 
flexibility. 

Note: If the ebcdic option is selected, statement num- 
bers passed as arguments must be preceded by an 
asterisk (&n). However, if the bcd option is selected, 
statement numbers passed as arguments must be pre- 
ceded by a dollar sign ($n), and the $ character must 
not be used as an alphabetic character in the source 
module, (n represents the statement number.) 



Default: N. 

PUBLIC -— specifies whether the executable part of 
the module (the csect, described below) to be 
created is to have a public or private attribute. 
Allowable values are Y or N; Y indicates public; 
N indicates private. If the public attribute is 
chosen, other programmers may use the same 
program if they are also given access to the li- 
brary in which this module is stored. The means 
for so doing are described in Appendix C. 

Default: N. 



LISTDS — specifies whether the requested listings are 
to be placed in the list data set or on sysout. 
Allowable values are Y or N. If Y is chosen, the 
listings are placed in the list data set and can be 
printed at any time with the print command. If 
N is chosen, the listings are placed on sysout; in 
other words, it is printed automatically but not 
kept in the system. 

Default in conversational mode: Y. 
Default in nonconversational mode: N. 



LINCR(line) — specifies the line number to be as- 
signed to the first line of the data set. The line 
number contains three to seven digits, of which 
the last two must be 00. 

Default: 100. 



LINCR( increment) — specifies the increment to be 
applied to develop successive line numbers. The 
increment may contain three to seven digits, of 
which tlie last two must be 00. It cannot be nega- 
tive. 

Default: 100. 

Example: A user specifies the following parameters 
when issuing the ftn command: 

cowboy , N, V5 , Y, Y, „ Y% „ „ 



Thus, the name of the user's object module is cow^boy; 
the source data set is not prestored; the first line 
number of the data set is the default value of 100; 
subsequent line numbers are incremented by the de- 
fault value of 100; the version identification is V5 (not 
a time stamp); an internal symbol dictionary is to be 
produced, a source listing is to be produced (this 
parameter could have been defaulted with the same 
result); an object listing and cross-reference listing 
are not to be produced (the default options); a sym- 
bol table edit is to be produced; no storage map is to 
be produced (the default option); no bcd special 
characters are to appear in the input (the default 
option); and the csect of the module to be created 
is to ha\'e the private attribute (the default option). 



Structure and Description of Compiler Listings 

The compiler will prepare a listing if one or more of 
the five listing options are requested. The five types 
of listings are: source program listing, object pro- 
gram listing, cross-reference listing, symbol table list- 
ing, and storage map listing. The listings |)i'oduced 
vary somewhat, depending upon the combination of 
listing options chosen. 

The figures that follow show the listings produced 
for a compilation requesting the default listing op- 
tions (source listing only), a compilation requesting 
all five listings and a compilation requesting only a 
storage map listing. A description is given for all 
sample listings. This description includes both a gen- 
eral discussion of items contained in a particular list- 
ing and references to particular items in the listing. 
Where appropriate, a reference number in bold-face 
type will be given in the listing description, for ex- 
ample, 1. Such numbers refer to the encircled num- 
bers on the listing itself that correspond to the item 
being discussed. 
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Figure 10. Source Program Listing 



Heading Page 

A headiog page containing three lines is produced if 
any edits are requested. These heading lines describe: 
an identification of the version of the compiler being 
used 1 , the module name 2 and version (or time 
stamp, if version has been defaulted ) for the compila- 
tion 3 , and a record of the options ( other than verid ) 
selected for the compilation 4 . An example of a head- 
ing page appears in Figure 9. In this example, the 
user supplied the module name cowboy, version iden- 
tification V5, and defaulted all other parameters. 

Source Program Lisfing 

If a source listing is requested, the first listing pro- 
duced following the heading page is the source pro- 
gram listing. The source program listing will contain 
the diagnostic messages for each statement following 
the statement. A sample source program listing is 
shown in Figure 10. The first line of all listings con- 
tains the module name, 5 , and the version identifica- 
tion, 6 . All source lines are preceded by the system- 
assigned line number, 7 . A diagnostic message is 
included in the sample source listing S . 

General Description of Output Module Listing 

Following the source program listing, listings of the 
compiled object program module are given. In general, 
the listing of a tss/360 Fortran output module follows 
the actual organization of the output module. For any 



FORTRAN source program other than a block data sub- 
program, the compiler generates an output module 
that consists of at least two control sections — a csect^ 
and a psect. The csect contains executable code and 
other information that will not be changed during 
program execution. The name of the csect is derived 
from the user-supplied module name by appending 
the two characters #C to the module name, or its left- 
most six characters. The psect is a prototype control 
section that contains a register save area, address con- 
stants (adcons), parameter lists, namelist informa- 
tion, non-coMMON variables, and local and global 
temporary storage. The name of the psect is generated 
in the same manner as the name of the csect, the 
suffix for the psect being #P. If common areas are de- 
fined, each COMMON ( blank and any named common ) 
is represented by a common control section in the 
object program module. 

The block data subprogram generates an output 
module ihat contains one or more common control 
sections. There is no csect or psect. 

Default Option Listing 

If the default options are chosen, an abbreviated de- 
scription of the csect and psect is given. The sample 
shown in Figure 11 contains header information and 



^The term "CSECT" generally refers to a control section other than a 
PSECT or a COMMON control section. In documentation or listings 
where compactness is necessary, the user may find CSECT referring to 
control sections in general. 
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Figure 11. CSECT and PSECT Listings for Default Listing Options 
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a summary of psect and csect information. In the 
header information, a line is given containing the 
module name 9 and the version identification, 1 . 
Next, the module name is repeated, 1 1 and the size 
in decimal of the module (csectt plus psect) is given, 

12. The name of the entry point follows, 13 with 
tiie location of this entry point relative to the csect, 

1 4 . Next are listed all external references made by 
the compiled program, 15 . Only one of the external 
references listed (comput) is also found in the source 
program. The other external names all begin with the 
three letters cue, which identifies them as Fortran 
iv-supplied subprograms called by the object program. 
A hst of all such programs, with their names, is given 
at the end of this appendix. 

The name of the csect, 1 6 , and the number of 
storage locations in the csect, 17, are then given. 
Also contained on this line is the time stamp asso- 
ciated with the csect, 1 8 . This time stamp is the 
same as that supplied for version identification, if the 
user defaulted this compilation parameter, or is ob- 
tained by the compiler for identification of the csect. 
Following this line is the size, 19, and relative loca- 
tion, 20 , of the two types of information contained 
in the csect. 

The next section gives a summary of the psect con- 
tents. The line containing the name, 21 , and size, 

22 , of the psect is followed by the relative location 
and size of the seven principal areas in the psect, 23 . 

Detailed Descrip:ion of Ouiput Module Listing 

If an object code listing is requested, a detailed listing 
of the CSECT and psect (or common control section, 
for BLOCK DATA Subprograms) is given. Figures 12 and 
13 contain examples of csect and psect listings, re- 
spectively. In addition, a listing of initialized variables 
is given. Figure 13A contains an example of the Table 
of Initialized Variables. The three listings are de- 
scribed below. 

Header Information: Each page of the listing is 
headed by a line containing the user-specified module 
name, the version, and the page number, 24 . The 
next line in the listing contains the module name, 
25 , and the module size in decimal, 26 . This size 
is the total number of bytes occupied by the csect 
and the psect, excluding common control sections. 
This information is followed by a table of all entry 
names, 27, and their locations (hexadecimal) rela- 
tive to the base of the csect, 28 . The header informa- 
tion is completed by a list of all references to external 
routines, 29 . 

Description of CSECT Listing: A line containing the 
name, 30 , and size, 3! , of the csect is printed im- 
mediately preceding the code. Next is a line giving 



the location of the executable code relative to the 
csect, 32 , followed by the size in decimal of the ex- 
ecutable code, 33 . Following this line are six columns, 
described below. 

1. Line Number 34 : The line numbers correspond 
to line numbers in the source data set. Each line 
number appears on the same print line as the first 
executable instruction of the respective source 
statement. Line numbers of nonexecutable state- 
ments (dimension, common, data, etc.) are omit- 
ted. How^ever, continue statements are included in 
the listing. 

2. Label 35 : Any entry name, statement number, or 
compiler-generated label is printed on the same line 
as the first instruction of the corresponding source 
statement that defines such a label. Compiler- 
generated labels indicate the destination of some 
compiler-generated branches. All compiler labels 
are six-digit numbers and are generated in a de- 
creasing sequence starting with 999,999. (In some 
cases, the compiler-generated labels are not in de- 
scending sequence, and gaps may occur in the 
descending sequence due to compiler code op- 
timization. ) 

3. Hexadecimal Location 36 : This column gives the 
location of the first byte of each instruction relative 
to the base of the csect. 

4. Instruction (Hexadecimal) 37 : Each instruction is 
represented by its machine language (hexadeci- 
mal) configuration. 

5. Instruction (Assembly Type) 38 : Each instruction 
is represented by its assembler language equiva- 
lent. x411 items in the operand field are decimal in- 
tegers. No extended mnemonics are used except in 
conditional branches, where the operand field con- 
tains the label of the branch terminal. 

6. Comments 39 : Whenever the operand (in storage) 
of an RX- or RS-type instruction can be meaningfully 
described, the description is printed in the com- 
ments column of the appropriate line. 

A referenced constant is commented by its value, 
which is printed in conventional Fortran repre- 
sentation, and by its location (hexadecimal) rela- 
tive to the base of the csect. Each part — real and 
imaginary — of a complex constant is commented. 
Certain fixed binary constants can be commented 
upon with their values and storage locations, al- 
though the instructions do not actually refer to the 
constants but obtain them by other means (e.g., an 
SLL instruction). 

References to variables and elements of arrays 
contain the word "variable" followed by the vari- 
able or array name. No attempt is made to identify 
a reference to a specified subscripted array variable 
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(element of an array). This information must be 
obtained by inspecting the D2, X2, and B2 fields 
of the instruction itself. As in the case of constants, 
references to complex variables are fully com- 
mented upon in both parts. 

Subroutine calls are described by the word *'ex- 
ternal" folloA.^^ed by tlie name of the subroutine. In 
a number of subroutine calls there can be two such 
comments. 

Arguments, or, specifically, adcons that contain 
the base register^- for arguments at object time, are 
indicated by the word "argument" and the name 
of the argument. The actual arguments themselves 
are identified as ^'variable" followed by the argu- 
ment name. 

References to local or global temporary storage 
are printed as "local temp" and "global temp/' re- 
spectively. Again, the location of the temporary 
storage item must be obtained from the operand 
field of the instruction. 

Address constants arc^ described by the names 
of the storage classes the adcons cover and the pre- 
relocation values of such adcons (zero values are 
not printed). The follox^i'ng items can appear in 
the comments column in connection with adcon 
references : 



Ha-.r rcm'slrr (ul.'oii for executable code 
B;ise rt^Liistcr adcon for niimerieal eon- 
<taiit.s 

Adcon tliat eoi; tains the base register 
For {]](' parameter list in a snlirontine 
call 

I, Deal (enipoi\ir>' storage !)as'e register 
adcon 

(ileJiai teneporai>' storage base register 
ad({in 

Base rcgisb'r adcon for \'ariables not 
dechnvd in any COMMON 

BLANK COMIMON l^Iank CX)MM().\ l)ase register adcon 

Name of a named Base^ rt\izister adcon for that named 



CODE 
NUMERIC 

PARAMETEI^ 
LIST 

LOCAL TEMP 
STGE 

GLOBAL TEMP 
STGE 

NON-COMMON 
VAR. 



COMMON 



COMMON 



All numerical constants are listed at the end of the 
CSECT ( after the listing of executable code ) , 40 . The 
relative location of the numerical constants in the 
CSECT is given, 41 , followed by the length in decimal 
of the numerical constants, 42 . Each constant is de- 
scribed by its type and length, 43 , location within 
the CSECT, 44, and its internal representation, 45 . 
The types are: 

I — fixed binary (integer) 

R — floating binary (real) 

C — floating binary (complex) 



iThe term "base register adcon" is used to refer to an address constant 
that is loaded into a base register. 



The length is given in bytes, thus, for example: 
P4 means an integer constant of 4-byte length. 
C*16 means a complex constant (floating bin- 
ary) with a total length of 16 bytes — 8 

bytes for the real part and 8 bytes for the 
imaginary part. 

Description of PS£CT Listing 

The information contained in the page heading line, 
46 , and fsect title line, 47 , is similar to that con- 
tained in the corresponding lines of the csect listing. 
Listed next is the relative location within the PSEC^r 
and the length of the areas. 

A sample psect listing is shown in Figure 13. 

1. Register Save Areas 48 : This area is used to pre- 
serve register contents upon executing a call to a 
subroutine. 

2. Conversion Constants 49 : This area contains the 
necessary masks and working storage needed by 
some in-line conversions (e.g., fixed to floating). 

3. Address Constants 50 , 51: Each ■ adcon is de- 
scribed by: 

a. The location of the adcon relative to the base 
of the PSECr. 

b. The contents (value) of the adcon prior to re- 
location. 

c. The control section referred to by the adcon or, 
in the case of arguments and external references, 
the item referred to by the adcon. 

d. The "storage class referenced" describes what 
part of the specified control section is covered by 
the adcon or what argument or external name 
corresponds to the adcon. 

Following the description of the above three areas 
is a listing of the individual items contained in the 
PSECT. The first item in this listing is the address con- 
stants, 51 . The address constants are followed by 
six otlier groups of items, described below. 

1. Parameter Lists 52 : The listing of items in the 
parameter list section of the psect is in a format 
identical to that of the adcon listing. A number of 
items may have no entries under "Control Section 
Referenced'' and "Storage Class Referenced." This 
indicates that the contents of such parameters are 
not known at compile time and that the parameter 
is computed and stored in the indicated location 
upon execution of the program. 

2. NAMELISTs 53 : This area contains the internal 
representation of namelist information. Only the 
total size is printed. 

3. Alphamerics 54 : Any alphameric constants, in- 
cluding contents of format statements, are listed 
by giving the starting byte of the character string 
followed by the string itself. 
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OC000078 


00000220 
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C000007C 
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CHCBOl 
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CHCBDl 
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00000088 
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CHCIAl 
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oooooooo 
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COCCOCEC 
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CHCIEl 




00000098 
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COOOOOFO 


PSECT 
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CHCIUl 
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COCOOOOO 
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CGMPUT 
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OCOOOIOO 


PSECT 
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00000118 
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CCOOOOCO 


00000120 
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00OOOOC4 


0000012C 
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PARAMETER LIST 
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EXTERNAL 
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LOC HEX 
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NUMERIC 
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COOOOOEO 
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CSECT 








NUMERIC 




CC0000E4 
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CSECT 
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00000158 
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PAGE 007 
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CONTENTS HEX 
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00000188 
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COOOOIOC 
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OOOOOllO 


OOOOOIAB 
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00000114 


OOOOOICC 
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00000120 
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CSECT 
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HEX 
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HEX 
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LOC HEX 
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1 'iTEST progr; 
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LCC 
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LOC HEX 
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J 
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I 
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OOOOOIOO 


B 


R*4 












000001F8 


A 


R*4 












@N6ME 












SIZE 60 BYTES 




LOC HEX 


VARIABLE 


TYPE 












GOOOQOOO 


C 


R*4 












00000014 
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INOEX 












SIZE 8 BYTES 




LOC HEX 


VARIABLE 


TYPE 












ocoooooo 


L 


1*4 












0C000004 


M 
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Figure 14. Table of Initialized Variables 
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EXTERNAL NAME 








CHCIEl 






EXTERNAL NAME 
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EXTERNAL NAME 








CO^^PUT 
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1*4 
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J 
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OOOOonoo 




L 
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INDEX 
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M 




1*4 
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oonoonoo 
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SOURCE LABEL 


CODE 
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SOURCE LABEL 


CODE 


OOOOOO^F 
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SOURCE LABEL 


CODE 
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ooooooon 
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Figure 15. Symbol Table Listing 



4. Temporary Storage: As in the case of namelist, 
local and global temporary storage blocks are iden- 
tified on the listing by their starting locations ( rela- 
tive to the psect's base ) and their respective sizes. 
The example contains no temporary storage blocks. 

5. Ncn-COMMON Variables 55 : The listing of the 
PSECT is completed by information about non-coM- 
MON variables. The starting location of the non- 
COMMON variable block and its total size are given. 
Each variable (or array) is described by its loca- 
tion with respect to the base of the psect, the name, 
and the type-length code. The type-length codes 
have the same meanings as described under con- 
stants. 

6. Common Control Sections Listing 56 : Any com- 
mon block — blank or named — is identified by its 
name and the total size in bytes. Ail variables con- 
tained in a COMMON block are listed in the same 
format as non-coMMON variables. The locations are 
relative to the base of the respective common 
block. 



Description of Table of 1,-ilfiatlzed Variables 

The page heading line, 56A , is identical to the head- 
ing on the csECT and psect listings. The next line in 
the listing contains the listing title, 56B , followed by 
the column headings. The information contained in the 
five columns is described below. 

1. SECT 56C : This column contains the module 
name specified by #P if a main program. If a 
block data subprogram is compiled, the name of 
the COMMON block will print. If more than one page 
of listing is required, the name will be repeated on 
the first line of data on each page. 

2. Relative Location 56D .• This column gives the hex- 
adecimal value of the displacement of the variable 
within the section. 

3. Hexadecimal Value 56E : This column gives the 
hexadecimal value of the preset variable as it 
appears in the text. 

4. Converted Value 56F : This column contains the 
preset value converted according to type of con- 



Appendix A: Use of the FORTRAN Compiler 



89 



stant. These types are: hexadecimal, integer, real, 
complex, logical, and literal. 

5. Variable 56G : The variable name with subscript, 
if applicable, prints in this column. Variables are 
listed in order by displacement within section. 

Columns 2-5 may also contain a "'S-dot" notation, 
56H , if the repetition factor of a preset value exceeds 
5. In this case, only the first and last values of the 

range print on the listing. 



Descripflon of Symbol Table Listing 

The symbol table listing (symbol table sort) contains 

an alphamerically sorted Hsting of symbols ~ names 
of variables-, entry points, external references, labels, 



etc. Each symbol is printed on a line and is described 
as follows. 

The name of the symboL 57 , is followed by its 
type-length code, 58 . The code has a meaning for 
the item represented by the given symbol. Entries 
under "class" further describe the item", and they are 
self-explanatory, 59 . "Storage class + offset," 60 , 
identifies the storage class to which a given symbol 
belongs and the location within such storage class. 
Under ^storage class" there can be references to blank 
COMMON, code, alphameric, name of a named common, 
etc. External names are not part of the compiled 
module; therefore, no information can be given for 
storage class + offset. 

A sample Symbol Table Listing is shown in 
Figure 15. 
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Description o§ Cross-reference Ltsflng 

The cross-reference listing is divided into two sections: 
a listing of names (symbols), 61 , followed by a list- 
ing of labels, 64 . Both sections list the corresponding 
Herns in alphanierically sorted sequence. Line num- 
bers, as (iefined In the source listing, are printed luider 
~"(lefiniHons,'' 62 and 65 , and "references," 63 and 
66 . for c-ach item. Whenever an item is defined (e.g., 
label of a labeled statement or variable name on the 
left side of an assignment statement), the correspond- 
ing line number is printed in the "definitions" column. 
Any reference to an item causes an entry under "refer- 
ences." Multiple entries for any item are sorted in 
order of increasing line numbers. Multiple references 
to the same item in the same source line result in 
multiple printing of the same line number for that 
item. Compiler-generated labels are not included in 
the listing. 



A sample cross-reference listing is shown in 
Figure 16. 

Description of Storage Map listing 

If an ohjccf code listing or 1)0th an objcxl code listing 
and a storage map listing are r</questcd, the hsting 
produced will be as descrilied in the detailed descrip- 
liou of llie output module h'sting abov'c. If a storage 
map listing is requested and no object listing is re- 
ouesievl the r(\suitant !istin'i2; will contain summary 
information for tlie module. 67. csect,. 68. and for 
the esixrr, 69. This information includc^s the csf.ct 
and esFCT sizes, external definitions and references, 
dio location relati\a.; to the csect of all Fortran state- 
-nvnl numlxa's, the size in the csfct of the nunieric 
oonsranis area, the rcJatixe location and the size of 
ilie |)rineiple- pskct arenas, and the location in the psect 
Oil" all ^ arialVle names 

\ sample^ storage map listing is sho\Mi in Figure 17. 
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Compilation Completed Message: Following pro- 
duction of requested listings, the page is restored and 
the message compilation completed is written. 



Destination of Compiler-Produced Listings 

The destinations of compiler-produced hstings depend 
on whether the task is conversational or nonconversa- 
tional, and on the value of the ftn command's listds 
operand. 



Conversational Tasks 

In conversational tasks, all compiler-produced listings 
are placed in the list data set unless the listds oper- 
and of the FTN command specifies sysout. 

Printing of the list data sets prepared by the com- 
piler is not automatic. Each time a unique module 
name is encountered, a generation data group is estab- 
lished, containing two generations. Each time the limit 
(two generations) is reached, the oldest generation is 
erased. The user may print only when he w^ants the 
output listings, using: print LiST.module-name fol- 
io w^ed by the relative or absolute generation. The 
Command System User's Guide presents a complete 
explanation of the language processor listing data set 
maintenance process. 

Since a pending bulk/io task wdll be established 
when the print command is issued for the language 
processor listing data set, the user must not attempt 
to erase the data set (or otherwise remove it from 
the system ) unless the bsn is canceled first. 



Nonconversational Tasks 

In nonconversational tasks, the system automatically 
puts compiler-produced listings on sysout and prints 
them. After printing, the listing no longer exists in the 
system. 

This system action can be overridden, however, by 
the listds operand of the ftn command. If you specify 
LiSTDs=Y, the system puts the listing in the list data 
set and maintains it exactly as in a conversational task. 

You can have the listing put in the list data set and 
printed immediately by specifying listds =y and fol- 
lowing the compiler source statements with an appro- 
priate PRINT command. 

Note that if you use a print command in a noncon- 
versational task initiated from the terminal, you can 
always cancel the printout by issuing a cancel com- 
mand. How^ever, the cancel command does not pre- 
vent printing of a listing, or any part of a listing, that 
is already waiting in the sysout data set. 



FORTRAN IV Library Subprograms: Indirect 
References 

Most FORTRAN IV library subprograms are referred to 
in a compiled program directly — i.e., by the same 
name used in the source program; the statement 

X = SIN(Y) 

for example, leads to a call on the sin program, and 
SIN ^vill be listed under external references in an ob- 
ject code listing. Certain other Fortran library sub- 
programs are referred to by names created by the 
compiler. These programs are listed as follow^s, with 
their names. 

CHCBGA Raises an F4 number to an 1*4 power 

CHCBGB Raises an P2 number to an P2 power 

CHCBGC Raises an 1*2 number to an 1*4 power 

CHCBGD Raises an 1*4 number to an 1*2 power 

CHGBHA Raises an R*4 number to an 1*4 power 

CHGBIIB Raises an R*4 number to an 1*2 power 

CHCBIA Raises an R*8 number to an 1*4 power 

CHCBIB Raises an R*8 number to an 1*2 power 

CHCBJA Raises an R*4 number to an R*4 power 

GHCBJB Raises an 1*2 number to an R*4 power 

CHCBJC Raises an 1*4 number to an R*4 power 

CHCBKA Raises an R*8 number to an R*8 power 

GHCBKB Raises an 1*2 number to an R*8 power 

CUCBKC Raises an 1*4 number to an R*8 power 

CFICBKD Raises an R*4 number to an R*8 power 

CIICBKE Raises an R*8 number to an R*4 power 

CHCBMA Raises a C*16 number to an 1*4 power 

CHCBMB Raises a C*I6 number to an 1*2 power 

CHCBGA Raises a C*8 number to an 1*4 power 

CHCBGB Raises a G*8 number to an 1*2 power 

CHGBDI Initialize interrupt processing. 

CHGIAI Initialize for an I/O call. 

CHGIEI Transmit an I/O value. 

CHGIUl Terminate an I/O call. 

CHCIVl DUMP program 

GHCIV2 PDUMP program 

GHCIWl EXIT program 

GHCIW2 STOP program call. 

GHGIW3 PAUSE program call. 

GHGIW5 Called if FORTRAN subprograms are erroneous- 
ly entered at their standard entry point. 

Reference To Subroutines 

Special considerations must be made when a Fortran 
main program makes references to subprograms. If a 
main program and its associated subprograms are 
compiled together, and an error is detected in one of 
the subprograms, that subprogram must be recom- 
piled. The recompiled output module may be placed 
in the same program library as the original or in a 
different one. Depending on which method is chosen, 
the results will vary. 

If the recompiled module is placed in the same 
program library, the user is asked if the module is a 
replacement. If it is, (the default condition) the sys- 
tem tries to unload any module in the user's virtual 
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storage that has the same name. The unloader will 
find a modnle but will not be able to unload it be- 
cause of outstanding references. Unless the user 
explicitly issues an unload command for his main 
program, he will not get his new^ copy of the sub- 
program. 

If the user defines a new program library, he will 
not be asked if the module is a replacement. Conse- 
quently, if he reruns the program, he will use the old 
copy since it is still loaded. 

The simplest solution is for the user to unload the 
main program before he starts recompilation. He can 
also unload modules that have references to the new^ 
module, but this might not work since the modules 
he tries to unload might satisfy references in other 
modules. If the user unloods his main program, he 
avoids getting diagnostics from the loader during 
compilation and ensures that the latest level of the 
module is being used. 

Desfinalif:n cif Outpyt 

Table 3 shows the destination of all output from any 
compilation variation. 

Compiler Resfrktions 

Limitations of virtual storage available to the com- 
piler and the object programs generated by it impose 
a number of restrictions on the size of a source pro- 
gram capable of being compiled. These restrictions 
are categorized according to complexity. The first 
category, simple source program restrictions, can 
easily be applied to individual source statements or 
particular types of source statements. Simple source 
program restrictions are listed in Table 4. 

The term "file'* is used in this section to refer to 
compiler work areas. 

The second category, complex restrictions, is com- 
posed of restrictions that generally are too complex 
to anticipate in advance of compilation (e.g., the 
storage requirements of the various tables internal to 
the com.piler are, in many cases, extremely difficult to 
compute accurately, as the table sizes are complex 
functions of the source program ) . Very few^ programs 
are of such a size or configuration that these complex 
restrictions can be met. Therefore, the Fortran user 
may not wish to concern himself wdth the complex 
restrictions until he receives a diagnostic message; 
then he can proceed to remedy the situation. Com- 
plex source program restrictions are listed in Table 5. 

Should the user wish to more accurately determine 
the number of entries that can be made in the files 
listed in Table 5, the following paragraphs provide 
infoiination allowing him to do so. For each file listed 



in Table 5, either a formula, an absolute number, or 

an average number is given as a measure of the num- 
ber of storage locations (bytes) in the file. 









Storage 


Symbol Table 






Locations 


Variable or function-name 




28 


Four-byte constant 






16 


Eight-byte constant 






20 


Sixteen-byte constant 






28 


Label 






20 


Adcon 






16 

Storage 


Progra m Representation 


File 


(PRF) 


Locations 


Equation 






16 


Unconditional go to 

IF 






16 

28 



Program Representation File (PRF) cont. Locations 
CALL 20 

BO 64 
Average i/o Statement (Five list elements, 

tw^o of them subscripted ) 74 

Average Label Definition 12 

Storage 

Expression File (EF) Locations 
Average Equation (Ten variables and 

operators ) 80 

Unconditional go to 

Average if (Arithmetic if) 80 

Average call (One simple argument) 80 

Average do 
Average i/o Statement (Five list elements, 

two of them subscripted) 100 

Average Label Definition 

Storage 
Storage Specification List (SPL) Locations 

Average common (Three variables, arrays, 

or block names ) 20 

Average equivalence (Three variables) 30 

Cross Reference Table (CRL) 
CRL size == ( number of occurrences of statement 
numbers -f number of occurrences of names) 

x8^ 

Storage 
Preset Data Table (PDT) Locations 

The PDT size is estimated from the relation: 
PDT size = CRL size (described above) -)- 
namelist size (described below) -{- total for 
the following four types of statements. 
Average dimension (Two arrays of three 

dimensions each) 24 
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Tobie 5. Complex Source Progrom RestricHo 



^ 



m 



Symbol Table (limited to 20 poges; 81,920 bytes) 



Too many nameS; c 
source program. 



Program Representation 
pages, 245,760 b^-tes) 



a Fj-,p!e55;^n Pile (Jin 



Storage Specification List (hr^ltfed to 60 pages, 245,760 bytes 
"CroM Refer6.n"«~foble hee FrelijDatc Tcblc I ^ 



Preset Data Tobia (Prfjet Data Table plus C'^y, Reference Tcb'e 
llmitf^J to 32 poges; l3I,072 byfes) 



■■ar abies (whjw .ubicript. car 



Too ir ch CO,'AMOt4 o. EOUl\"\LEr4CE 'nformat,^.,,. 
Dt=« rinT^ai^ -Jf^r^^ng t.,f m^'T^riablcs nr^l'^Me 



number 



Statsn«-.t Fjncti-r, Evpre$sl:n File (limitt-d tj 1 i0,430 bytes) 
N on -COMMON VaTkibFe'Ito age " ' 



- h: 



e.-r.e-iH, Preset bato 



; T'-if cumrr 



va -ze oi 5tcteTc-.- '.- ut on detin.tions !■ 
Tco nc-y non-CiiM/^iCN ,<irijb!e~ the «j,urce prjgro 
Tuo n-,.^y CO¥MOr^ ^-^ir" iblsTiTrffie so"",.7ce"pr^rof- . 



Prop^am F.ie (I'mifed to 60 pages; 245, /60 ^,tes) 
Code File (limited to &') pag^^S; 245, 7d0 b,'te:i 



rob:? ,|:-i;ti-<; 'o 16 •■>; b>tt 



P'oc'i.-T! MdolIs Dictloncsry (I in. tea to 6 p^gsi: 24 j7i b^tes) 



B^progrjrn tDC_^ 

.progr^;;:t.-,;i.^ 



IC/: -ALENCt 
'Osr;,m t'^loi^ 



I Total of ail statement numbers in OKiyned GO TO <;t3(er.ents, ti 

^ Lfff£':£n5«^contnbufe tVpificonlly tojhe^i Ze of thi- C£ej^ 

i D^ tot -lon/^ "i 'The ovailable SDQCefjTTort.ng non-COW^'ON vcril- r-*" 

i deter-nine $t<^r3ge cssignmer.n,"' ,r fa; wiving EQUIVAlf f-iCb 

j lelfitionih.ps fjs b.-en exceeded . 

I Ccntr'bjtors ^r this table ore (!■ irrdrnV reia'.'^.i 'c the s'^t- of tt t- 



Associated Diagnostic Mes5og«e{s) 

SYMBOL TABLE OVERFLOVv', SPLIT PROGRAM AND COMPILE 

PARTS SEPARATEL'Y 
SYMBOL TABLE OVERFLOW, TOO MANY [.l^'.irS, 

CONSTANTS, AND FORMAT^ 
SYMBOL TABLE OVERf (Ov/ iN PHASE 2. kLTURTJ IS 1() hex 

lo^fion ^ 

'tut OVlPFLOv/. rOu'M^NY FXECTjJASLL STATE~MtN"l >' 



, TABU OVERFLOW. TOO MUCH COMMON ATJD 

fOUIvALEr-iCE if-ifORMATlON 
I c;POSS-REF£PFr4CE TABLE OVERFLOV,' 



TABLE OVERFLOW. TOO ^4A.r^Y If-JITiAL VALUr":, ►JAA/r, 
J LI,"T5 ANf^FOPMATS 

' 'i AS .E cyjf'F7Fl0 W. TOcfrvViCi Y ';TA : i a-fnI "^'JtlZvOff^""' 

" sTf r^Gi-'A/^JiTr.r.f'F/jTTiOl^JO^N-COMMON'VARIA&lF ".^.e" 

■:'U'A3i ASSIGNMENT TO COMMON ■/AR!A?LE r,a-,e IS 
I _ipOJARGE _ 

; PP.O:.^AM FiLE_OVtRFLCW2N__PHASE_3_ _ ^ 

CODf File OVERFlCA'. SPL'7 PROGRAM a"nD CC5MPLIE 
OAR'S SEHARATFlY, 

' ADCON PAGL C'.tPFLOV, . iPLIT PROGRAM AND COMPIIF 

PAKTS separa:elv. 

INTERNAL TABLE OVrRFlD*/ IN WASF 7 i^E'^v't'i i IS T'C ■■,'. 






5IORAGE OVEFN 



rPCCRAM MODULE DICTIONARY TABLE OVERFLOW 



f-'ame Table (EaS^.^oI 


Name 


Lilt) (litiited <- 


Intarnai 


Symbo. Dicri. 


nury ^i 


•nited to !0 PQ 


Object 


Prs^ram M-xiu 


eii-mi 


ed to42r>;f<. 


None L 


St ..common a 


G ,er-,' 


/ed evprcs: -.r. 


Nurrter 


0* rarrru. n It 
i/ldad b> {'he 


nurr-bfl 


cf dimens.ons 


r^.e ..1- 
routin* 


"proSrr^"; 


J farm 

V, fad 


'to^iir^'"" " 



2 Doges, S, 192 tytc 

,;ev 4G,O60 byfes 1 
; 172,032 byte;1 



b 


s'. and 


wurce 




c<> Icrge 










-> 


,n!rabif 


QiCC 


J 


he, no 


been 



it. certain case, the mn., .- j ., n scmcA'hot less thar 126. The 
Pre.r-- D.ta TuLle, the Ciu.. 'pf^tencc L st 'CPLi, o^j ►ne F -- ■«! 
A-,.™nt Adr<,n L T ==AAI , ,-«-« a cr,^,r«, vcr- Oreo .f 32 
pa^-'. The so-jce oi. fte.i 'j rhe FAA . is only that nnt needed b- 

for »he FAAL 



I Number o* pnmlr'ves (fur 



!. Statement F 

2. Subjcripts. 



NO. OF Er^TRr OR COMMON ^JAML' HAVE CAiiSLD a t,^V- 
i_ J-^bLE OvERFS_.')W _ _^ 

INTERNAL SYMBOL DICTIONARY OVERFLOW 
, OSjfcCT PROGRAM MODULE EXCEEDS A i LOCATED SiZF 

r^AME Ll^T DF^tETED IN PHASE J. 
r"fABLL OVrPFuTw. SU8¥cfT5T"E'XPRESSlC)>riS TOO BIG 
' hORhAM. A-GUMtNf AD'cC'NTABLrOV£"R^LC VtD~iN PHASE d. 



tJ^PRFSSlON TOO BIG 



t "-, 1,'temai S/mbcl DiCtiinu-v. 



■ • •jr-,? t to r„..r,pu»t. all or Dort of the 
.,-,-. "cf.rence listing 



.fences) i- an 
-'on In the soc 









du'inp D^,e^t p..^ran 



I vctlobleii^y CO 



Where on expi ir 
^ General correct 

Other corrsctiv* 
2 This restriction i 



t is not gi/en, th<» limit is a conplex fuii'-ficn of othei limits, 
fion is to divide the progrom info n nmm program und one r r m^'t 
ns are noted in the "Corrective Action" colurnii, ond may in somi 
J bsr# OS Well c; in Toble 4 a* in terto.n cases the restriction ma- 



'm%, anc rumpile the part', sLporately. 
IrnpliH from inforr-intion in previous c 



Table 3. Destination of Compiler Output 



CO!HIPILER 
VARIATION 


oirrpuT 


Onji-C/r MODULE 


SOURCK 


LISTINGS 


COMPU.l-R Df AGNOSTICS 


C(jnvers;.itic)niil -- Input 
from terminal keyb(xircl 
or card reader. 


1 .Lik\>t jol't library 
defini-d in task, or 
rSb]lUdB. 


Data set named SOURCE, 
module-name, created by 

>,ysU'm. 


To list data srt membc r 
named f dSTanodiile. To 
S^SOUT \\h( n user is- 
sues api)ropri;;te PRIXT 

command. 


d'o ternunal, luid to list 
data set if lisliiu^s le- 
(luestcd. 


Conversational — Pre- 
stored data set. 


Data set named SOURCE. 
module-name, will be up- 
dated to reflect modifica- 
tions. 


N oneon\-erNational — 
P restored data set. 


To list data set if re- 

e|uested; otherwise to 
SYSOUT. 


To SYSOUT data set if 
no listings requested; 
otherwise, to list data 
set only. 


N on conversational — 
Input after FTN. 


Data set named SOURCE, 
module-name, created by 
system. 



Average common (Three variables, arrays, 

or block names ) 24 

Average Explicit Type Statement (Three vari- 
ables, arrays, or function names, each with 
one initial data value) 72 

Average data Statement (Four variables, each 
with one value ) 64 



Sfatement Function Expression File 
Average equation (Ten variables and 
operators) 



Storage 
Locations 



80 



Non-COMMOX Variable Storage 
The storage assign incnr for any variable may not ex- 
ceed 2"*-l relative to the assignment of the first non- 
coMMOx variable a,>signed. Tlie assignment of this 
variable is independeiit of its o^xn length (save for 
at most 1.5 bytes of paddin^ whirls nn'glit be neces- 
sary for proper internal aKgt.nvMit /, ])ut depends 
upon the assignments made i)\' die compiler to earlier 
processed variables and upon the adda'tional effect of 
an EQivALENCE statement which might involve this 
variable. 

COMMON Variable Storage 

The storage assignment for any variable may not ex- 
ceed 2--^-l relative to the origin of the common block 
within which it is to be assigned. If this variable ap- 
pears in a COMMON statement, then the sum of the 
lengths of the variables and arrays that were declared 
previously in the same common block is 2^'"* or greater. 
If the variable has been given equivalence to a com- 
mon variable, then the equivalence relationship is 
such as to make the assignment of the variable ex- 
ceed 224^1. 



r^d-)le 4. Simple Source 


Program Rest! 


let ions 


1 

"I 
1 
* rri'iM 


MAXIMUM 
NrMl.EU 
OR Si/K 


\SSOClATED 
r)IA< ;-\OSTIC MESSAGE 


*^' :ii!!)cr of arguments 
;i' , >i A ! ement Function 


25 


ILLI'.CAL NUMBER 
OI-^ ARCUMENTS 
USED FOR 

Ei: NOTION name 


\u,h\<i\ of nested 
st:-iJ.;'T r-iJ function 
reh :•. n..^ 


2-1 


Si ATiaiENT 

i UNCTION CALLS 

NESTED rOO DEEP 


?Ml!r. -i ■ ;>| Ic-vcls uf 
11- A^-- 1 '>'-■ ' loo[:)s { l)(4li 
i. ,\pi:< 3L J lid imidieit ) 


o5 


DO LOOPS NESTED 
1 OO DEEP 


Nuin'xT <A statemeu.t 
num'rrs i.-i a eompuled 
(sr as^s:.:oed CO TO 


255 


NUMBER OESTATE- 
MENl^ NUMBERS 
EXCI'EDS 255 


Nuniljer of named 

COMMON' blocks 


118 


dOO MANY 

COMMON BLOCKS 


Nundxr of >i!j;nifie;nil 
cli;u\ ( hrs* in a 
sour, f' >iatenient 


1320 


MORE THAN 1320 

CHARACTERS 

THIS AND EOLLOW- 

ING CONTINUATION 

LINES WILL BE 

IGNORED 


Total si/»' ot an .irr;^' 


2"-'-i bytes 


ARRAY name IS TOO 
BIG 


Kou!:l>f-r <)[■ cliaructfr . 
in 11 rhi.i-acler strm.c 


255 


CHARACTER 
STRING TOO LONG 


Maxiuuisn nnndxr of 

ar;.!;nin<-n[s in a su!)- 
iiroerani n-ferf iicc" 


126 


FORMAL ARGU- 
MENT ADCON 
TABLE OVER- 
FLOWED IN PHASE 3 


Ma.vinniin uinnheM' of 
di^1(■!i^i(■!li^ in .m. an a> 


7 


variable HAS MORE 
THAN SEVEN 
DIMENSIONS 


M;i,\imuni liiuribv'r of 
preset variables 


510 


WORK AREA OVER- 
FLOW - INCOM- 
PLETE TABLE OF 
INITIALIZED 
VARIABLES 


^Se(' "Tormat of Suiuc< 
number of si,ij;nificaiit 

"Sri> also the more dc 
Table 5. 


• Lines" for the rides to determine the 
cliarat'U'rs in a source statemenL 
tailed discussion of this restrict ion in 



Appendix A: Use of the EORITIAN Ccmipiler dT: 



Program File (PF) 
Estimated from the relation: 

PF size = (pRF size + ef size) x 0.9 

Code File (CF) 
Estimated from the relation: 
CF size == PF size x 0.5 

Adcon Page 

The adcon page contains certain address constants 
required by the compiled program. The particular 
address constants included in this page are implied 
by the items listed below as contributing to space 
required in the page. 

The size of the adcon page can be estimated from 
the relation: 

(number of pages of constants referred to 

+ number of pages of common or non-common 
variables or arrays referred to 

-}- number of pages of generated code estimated 
and referred to 

-|- number of pages of local temporary storage 
referred to 

-j- number of pages of global temporary storage 
referred to 

+ number of literal occurrences of statement 
numbers in assign statements 

+ number of formal parameters 

+ number of pages relative to a formal param- 
eter referred to except the first page 

+ number of literal occurrences of external func- 
tion references or external subroutines re- 
ferred to with at least one actual argument 

-[- number of list elements ) x 4 

+ (number of distinct external subprograms ref- 
erenced) X 8 

-}- 8 if there are any i/o statements 

-f- 16 if any i/o statement has a list 

Phase 2 Internal Table 

The following relation gives an upper bound on the 
size of entries in the table. Areas in the table are re- 
used frequently. 

Internal Table size = (number of occurrences of 
variables excluding common, equivalence, and for- 
mal arguments 

+ number of variables in equivalence statements 
-f- number of groups of variables in equivalence 

statements 
4- number of occurrences of a variable common 
between groups of variables in equivalence 
statements) x 8 



-f- (number of do statements -- 1 -J- number of 
branches into and out of do loops) x 4 

Optimization Table (Triad Table) 

If no iSD requested, estimated size of optimization 

table = number of executable statements x 36 

If ISD requested, estimated size of optimization table 
= number of executable statements x 72 

Program Module Dictionary 
Estimated from the relation: 

pxiD size = (number of comxion statements -\- 2) 

X 84 

~f (number of extby statements) x 28 

+ ( number of i/o statements ) x 44 

4- (number of call statements 

4- ( number of call statements -)- number of 

external subprogram arguments which are any 
of: variable or array name that is not a formal 
parameter; expression; constant; function name 
that is not a formal parameter) x 8 -|- 88 

Name Table or External Name List (ENL) 
ENL size = (number of coximon statements 4- num- 
ber of ENTRY statements -^ 3 ) x 8 + 4 

Internal Symbol Dictionanj (ISD) 
Estimated from the relation: 

ISD size = (number of coxixion statements -\~ 2) 
X 16 

4- (number of executable statements) x 8 
4- (number of variables -f number of coxixiON 
statements -|~ 2 4- number of forxl4t statement 
numbers) x 24^ -f 24 

Object Program Module (Text) 
Estimated from the relation: 
opxi size = (number of statements) x 24 

NAMELIST 

XAXiELisT size == (number of names in naxieust 

statements) x 2 

The restrictions listed in Tables 4 and 5 are imple- 
mentation restrictions; they apply only to this particu- 
lar implementation of the Fortran language. They 
are a supplement to the language restrictions given 
in the publication IBM FORTRAN IV. Other than 
restrictions specifically stated in Tables 4 and 5, the 
only implementation restrictions placed upon the lan- 
guage are the limit of source statement size and 
maximum number of dimensions in an array. 



'Assuming average of one dimension per variable. 
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Appendix E. PCS and FORTRAN Object Programs 



General 

This appendix discusses the use of the program control 
system (pes) for debugging object modules produced 
by the Fortran compiler. Command System User's 
Guide contains a complete description of the pes lan- 
guage components. This appendix discusses the ele- 
ments of the language as it pertains to the Fortran 
user who is debugging at the source language level. 

PCS is a part of the command system and can be 
used, along with other commands, w^henever a user 
program is loaded, pcs provides the user complete 
control over the execution of the program he is de- 
bugging. He can start and stop execution at selected 
points, and he can examine arid modify variables be- 
fore, during, or after execution. 

PCS commands are not part of the compiled module 
and are never saved as a part of the module. In this 
sense, pcs is an object-time checkout language and 
not a compile-time checkout language. The only con- 
nection between the compiler and pcs is via the In- 
ternal Symbol Dictionary (isd), which is produced by 
the compiler when the user selects the isd option in 
the FTN parameters. The isd contains information 
about all Fortran statements and local and common 
variables in the modale. The availability of an isd 
allows the user to check out his program using the 
same names and statement numbers as those in the 
source program without concern for the actual lo- 
cation of his program in virtual storage. In addition, 
when the isd is selected at compilation time, the com- 
piler inhibits the optimization of the object code gen- 
erated, so that the user has available the complete 
facilities of pcs. Appendix C describes more fully the 
object code optimization performed by the compiler 
and its effect on pes usage. The discussion here gen- 
erally assumes that an isd is available for the module 
and that references in the checkout statements to data 
and FORTiiAN statements are made symbolically. 

This appendix contains sections describing the fol- 
lowing: 

• The general function of each pes command and the 
combining of commands to form pes statements. 

• The use of pcs in relationship to the task and the 
execution of the user's program. 

® The notation used in forming pcs commands. 

• The form of each command, including restrictions 
and considerations for its usage. 

• PCS diagnostics. 



Commands and Stafentenfs 

PCS commands have the following functions: 

DISPLAY To display the contents of variables or ar- 
rays on SYSOUT. 

DUMP To dump the contents of a variable or ar- 

ray into the pcsout data set for later print- 
ing. 

SET To modify the contents of an array or 

variable. 

CALL, GO, To begin, continue, or alter program ex- 

BRANCH ecution. 

stop To stop program execution. 

AT To predefine a point (a Fortran statement) 

at which some action is to be performed 
when the statement is reached during pro- 
gram execution. 

IF To define a condition that must be "true" 

to activate other pcs commands in the 
statement. 

Two or more of the above commands can be com- 
bined in a prescribed manner to form pcs statements. 
The IF command must always be combined with an- 
other command; it cannot be used alone. The format 
of a PCS statement is as follows: 

[AT] . .*.; [IF]; [DISPLAY] . .*.; [DUMP] . . .; ' ^ 

[SET] . . .; ffBRANCen 
L{ STOP fj 

The following tv/o commands are always entered 
individually: 

QUALIFY To designate the module in which the 
statements and variables to be used in pes 
statements are defined. 

removb' To delete previously entered pes statements 
containing the at command. 

Sequence of Operation 

PCS statements can be entered before, during, or 
after module execution. In conversational mode, if 
reference is made to an external symbol that has not 
been loaded, the user is prompted to indicate whether 
or not a module satisfying the reference is to loaded. 
When a pcs statement is entered, the action requested 
can be performed at one of two times. If the state- 
ment contains no at command, the actions are per- 
formed immediately, and the terminal is returned to 
command mode (in a nonconversational task, the 
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next command is read from sysin). If the statement 
contains an at command (termed a dynamic state- 
ment), the actions are performed when the Fortran 
statement number given in the pes statement is 
reached during program execution. He can then enter 
any commands he wishes, including dynamic state- 
ments that are to be effective during execution. The 
CALL command, when used without an operand, exe- 
cutes the last module referred to by the system. If an 
object module is loaded after the main program is 
loaded, the name of the main program should be 
specified as the operand of the call. 

During execution, statements can be entered when- 
ever execution is interrupted, which can be the result 
of a PAUSE statement or of the entry, prior to the call, 
of a dynamic pcs statement containing a stop com- 
mand. The conversational user can also interrupt the 
execution of a program by pressing the attention but- 
ton. The stop command can then be entered to obtain 
the symbolic location in the program that is to be 
executed when the go command is used to resume 
execution. (Refer to Appendix F for considerations 
in the use of the attention button.) 

Checkout operations can be continued following 
execution until any module referred to by a dynamic 
statement is unloaded, at which time all pes state- 
ments are removed from the user's object program 
modules. 

Associated with each dynamic pcs statement is a 
counter that is incremented by one for each occur- 
rence of the events specified in the statement. This 
counter can be referred to by the special character %, 
The value of the counter can be displayed or dumped 
and can be used in forming expressions. The counter 
(%) referred to is always the one associated with the 
statement in w^hich it is referenced. 

Since % is not a user's variable, it cannot be changed 
by a SET command. 



Nonconversational Mode 

PCS can be used in nonconversational mode with the 
following differences: 

1. Erroneous pcs commands produce a diagnostic on 
the task's sysout data set, and the commands are 
ignored. 

2. No prompting is performed, and incorrectly en- 
tered commands are ignored. 

3. PCS output goes to the task's sysout; it is inter- 
spersed with user and system responses, dump com- 
mand output is w^ritten on the pcsout data set. 

4. If object program execution is interrupted by a 
stop, the next command is taken from the task's 

SYSIN. 



Nofafion 

PCS commands consist of directives, operators, sym- 
bols, and constants. In a pcs statement, these elements 
are delimited by blanks. That is, blanks cannot be 

embedded in variables or constants, but they can be 
used following a comma, semi-colon, and around arith- 
metic, relational and logical operators, and paren- 
theses used for grouping. 
The character set is: 

1. The letters a-z (upper or lower case) and $ # @. 

2. The digits 0-9. 

3. The special characters 4-~^>><^'~'| = -*( )> 
' / k% '. blank. 



Directives 

The PCS directives are at, display, dump, if, qualify, 
REMOVE, BRANCH, CALL, GO and STOP. Eacli directive 
designates a pes command. 

Operators 

Operators used to form arithmetic and logical expres- 
sions are: 



Conversational Mode 

psc commands entered at the user's terminal (sysin) 
are immediately checked for valid syntax. References 
to variable names and statement numbers are checked 
in the appropriate module's isd. Syntax errors and 
references to undefined symbols are reported to the 
user via diagnostic messages. 

All PCS output is printed at the user's terminal 
(sysout), except for the dump command output, which 

is written on the pcsout data set. 



TYPE 


OPERATOB 


MEANING 


Arithmetic 


+ 


Addition 






Subtraction 




* 


Multiplication 




/ 


Division 


Logical 


--1 


Lo.^'ical inversion or ncijiation (NOT) 




& 


Lo-izic^il int(M->('ction (AXD) 
LoL^ical union (OR) 


Relational 


•\, 


Greater than (GT) 




< 


l.ess than (I.T) 




=: 


K(|ua] to (EQ) 




>r= 


Greater than or equal to (GR) 




<=: 


Less than or equal to (LE) 




— Izzz 


Not ecinal to (NE) 




^> 


Sot iivvaicT ilian ( LE) 




_,^^^ 


N:of less than (GE) 
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Symbols 

Symbols refer to variable names, array names, and 

statement numbers. Tliey are referred to in pes with 

tlie same names and numbers used in the Fortran 

module. 

PCS recognizes two kinds of symbols: external and 
internal. 

FORTRAN external symbols are: 

® Module name 

• CSECT name (the module name suffixed with #C) 

• PSECT name (the module name sufBxed with #P) 

• coxixiox block names 

• FUNCTION subprogram names 

• SUBROUTINE Subprogram names 

• ENTR^^ names in subprograms 

Internal symbols are those defined within a single 
compilation. i.-ortran statement nrimbers and Fortran 
\arir!!)lc (;)■ array names arc^ inUa-nal syml)ols. Internal 
synil)()ls can b(^ ref(^rred to on!} if an isi) was re~ 
qu('st(\'l w^icn tlie module was compilc-d. k'urther, each 
intciTial s\-inb()] must bc^ (|ual'fUnl to spix-ify tlu^ pro- 
.UTain name: in wln'cli tlu^ symbol was dc^fincHl. 

Certain nanK\s that ap[Knpr ir^ a Fortran source pro- 
gram arc not a\'ai]ablr tor use in pcs statements. Th,esc> 
arc^ names whosi^ oiihj occurrcnccN in the- source jR-o- 
gram arc iis any of tlu^ following: 

1. As a fornirii argument in ^t suupoi-tixT', function 
or FNiRv siattnTK\nl. 

2. As a dnmnn argumcot in a statement function. 

3. As a, t\'j")e st<j.tern(ait c()!n})0!!en! \\TtlK)ut dimensioas 
or initial \aIu(N., 

Names used ouly iu these wa\'s an^ ignored h\ liie 
eompiler. No storage^ is allojate-d h.)r them, and no 
TSD entri^es arc made. 

Sxiubols cap! b(^ (juah'iied cxjilicitly or implicit ly, 
Th( interna] symbol A is qua] i lied explicit!) as follow s: 

XCAIN.A 

An internal symbol is qualified implicitl)' as follows: 

QUALIFY MAIN 



DISPLAY A 

If a module has been link-edited, internal symbols 
can only be lused if an isd has been requested as a 
linkage editor option and in addition, an isd w^as re- 
quested at compile time for the module defining the 
internal symbol. Each internal symbol in a link-edited 
module, when referred to in a pcs statement, must be 
qualified by both the modide name originally as- 



signed at compilation time, and the name assigned to 
the link-edited output module. For example, if object 
inodirlc xiain was link-edited into an output module 
name ix:)tal, the internal symbol A in xiain is explic- 
itly qualified as: 

DISPLr\Y total. XIAIN. a 

To eise iinpJicitK (iiudific^d irsuaiial s\'mboIs, both ob- 
j(N't module^ name-: must b^e s])ecified in the qualify: 

QIWPIF^ 1'()T\LAIAIN 
n^-PL-\Y A 

ITw Qi'APiF^- rcanains in ellcci until another qualifx' 
rs LoA'^'fi. i'Apiieiil-,' qnalifieO s\]vr!)ols can still be en- 
tered at an}' ]:)oini.. 

Th,c specia- symfjol //com can be us(k1 to refer to 
l)lank common; /fcoxi can be usee! as either an external 
or internal symbol. 

I cs eotnmands can icicv to Ciumm}- argunacaits to 
snh4)ro^ranis. I'lie wiaies of die arguments used ar^ 
thoM' '•skJblished. at the upost reeenl i^xecution of tlK; 
snbi^rograjp v\-hcn tlie pes aetion is nerlornu'd. Duu]- 
niN' ariiunteiits sbonki not !)e relcT]-^ d to it tlu action 
rrdnc'sted in iju^ c^)inuiaud i'> io bt pciioruKMi ])rior 
to ■ 'u\vv to th(^ suf)i}rc^grarn. 

fORTRAN Sfafement Numbers 

i-oioPAN statcaner-. numlx-rs :uc those written biy the 
nsrr in I lie (U'igin::] -vourrt jinp^rouPi and should n.ot 
be (onfused with the hue numbers that are assigned 
to (xieii so!U-(;e lini b\' fiie couipilia-. Statements must 
be rcfcnaxi to b\ tlieir statement rannlicT's, not line 
nupaf)crs. FAec'itable statement niunbca-s used as in- 
teiiuH sipuIjoIs cjhi ])e inereme-nted to rehn' to uamPim- 
bia^e-d sta.tca'utaitx Tbu' incrcaucait must be an integer 
gr'a!(r llian yvvk (aie'csixl in parentheses, and im- 
uiechaieK' i()llo\N'aig !he •■;tatem"nt number. The incre- 
np'ui ( ! '^ re((^r> l.} l:\\v nunilM'red statement itseh. 
Hiorefori*. Sf^ 1 ~ r^i(i^' \o uunibcax^d statenient 86: 
S6,'2' r^'fcax fo fhe nex.t ^'xc-'iilahh- stattarua'if follow- 
ing numbered statement 86. 

Executalile statements arc* arithmetic and logical 
assignnu^nt statements, ctmtrol statements, and input/ 
output statements. Nop.execulable statemcTits are spec- 
ification statements and sub'prograni statements. Non~ 
(executable statements sliould not be incremented. For 
(X ample, in the following statements: 

10 READ (L20)A 
20 FORMAT (F6.2) 

B=:A*3.Ft 

WRFrK ('2.-20)A.B 

CXI IX) 10 

to rc^-fer to the third statement (B == A*3.14), .10(2) 
must be used; the fobmat statement cannot be incre- 
mented since it \>: not executable. 
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Statement numbers refer to a statement's first line, 
pins any continuation lines; therefore, continuation 
lines need not be considered when using incremented 
statement numbers. 

If the first executable statement in a program is 
unnumbered, the integer zero can be used to refer to 
it. In the above example, if the read statement were 
unnumbered, could be used to refer to it; 0(2) 
would then be used to refer to the second executable 
statement (i.e., B = A*3.14). 

Subscripted Symbols 

Internal symbols that refer to arrays can be sub- 
scripted to refer to elements of their arrays. A sub- 
script can be any integer arithmetic expression that 
does not itself inckide a subscripted symbol. The sub- 
script is enclosed in parentheses, following the internal 
symbol naming the array. One subscript expression 
must be used for each dimension; multiple subscripts 
are separated by commas. 

An array that is a dummy argument to a subpro- 
gram can be subscripted. The dimensions of the array 
are as defined in the subprogram. When an array has 
adjustable dimensions, both the array and the dimen- 
sion values used are tliose estabhshed at the most 
recent execution of the subprogram. 

Canstanfs 

Five classes of constants can be used to form expres- 
sions in PCS commands: integer, real, hexadecimal, 
character, and address constants. There are no com- 
plex constants. 

1. Integer constants are expressed in the same manner 
as FORTRAN coustants. For example: 9327, -642, 

+ 1066, -67. 

2. Real constants are expressed in the same manner 
as FORTRAN coustauts. For example: 5764.1, 7.0E3, 

16.9D-03, +0. . 

3. Hexadecimal constants are written with one or more 
hexadecimal digits (o-9 and a-f), preceded by an 
X, and enclosed by apostrophes. For example: 

X'76543210', XFFFFFFFf', x'aC7', x'dfECB", x'oOFf'. A 

hexadecimal constant is either truncated on the left 
or filled with zeros on the left if its length is in- 
appropriate for the expression in which it appears. 

4. Character constants can contain all letters, decimal 
digits, and special characters. Those remaining un- 
used combinations (of the 256 card punch com- 
binations) that can be designated in a character 
constant entered on cards are described in Ter- 
minal Users Guide. A character constant is en- 
closed in apostrophes. If an apostrophe is desired 



as a character in a character constant, it must 
be represented in the written statement by a pair 
of apostrophes, although only one apostrophe will 
apx^ear in storage. For example: '$3.98', how are 
YOuP', Y 'm fine'. If the length of the constants is 
not appropriate for the context in which it occurs, 
the constant is truncated or filled with blanks on 
the right. 
5. Address constants consist of the character A fol- 
lowed by a symbol enclosed in apostrophes. The 
allowable symbols are: external s^aiibol with or 
without offset, internal symbol with or without 
offset, and subscripted variable. The length of an 
address constant is always four bytes; its value is 
the address assigned to the symbol. Address con- 
stants are evaluated at the time they are used. 
The ciuTcnt value of any ^/ariable referenced as a 
subscript is used in computing the value of the 
address constant. As a result, the value of an ad- 
dress constant that contains a subscripted symbol 
may vary during program execution. For example: 

A*N A A IE', a area Y ( I, J ) '. 



Expressions 

Arifhmetic Expressions 

Arithmetic expressions in pes are similar in most re- 
spects to FORTRAN cxprcssions. They can be used as 
subscripts, as value to which variables are to be set, 
or as values to be compared in logical expressions. 

The special character {%) can be used in an arith- 
metic expression to refer to a counter incremented 
by arrivals at the control point(s) specified in an at 
command (or a pcs statement that includes one or 
more at commands). 

There is no exponentiation or fimction evaluation 
in PCS expressions. 

The rules for formation of an arithmetic expression 
are as follow^s: 

1. Any arithmetic expression can be enclosed in paren- 
theses. 

2. Arithmetic elements or expressions can be con- 
nected by arithmetic operators to form other arith- 
metic expressions, provided that no two arithmetic 
operators appear in sequence and no arithmetic 
operator is assumed to be present. 

3. An arithmetic element or expression preceded by 
a sign (either 4- or — ) is permitted, whereas the 
operators * and / must be enclosed by elements 
and/or expressions. 

4. All constants in an arithmetic expression must be of 
the same tyjie. Similarly, all variables in an arith- 
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metic expression must be of the same type. Mixed- 
mode arithmetic should not be attempted. 

When division is performed in an integer arith- 
metic expression, the integral part of the quotient 
is retained and the fraction is discarded. 

Logical Expressions 

A logical expression is used in an if phrase and can 
take any of the following forms: 

1. A single logical variable. 

2. Two or more logical variables, connected by the 
logical operators & or ], denoting logical and and 
logical OR. 

3. Tw^o arithmetic expressions of the same type, con- 
nected by a relational operator. 

The rules for constructing logical expressions are: 

1. A logical expression that contains a relational 
operator has the logic value "true" if the condition 
expressed by the operator is met when the expres- 
sion is evaluated. Otherwise, the expression has 
the value "false." 

2. The "1 logical operator must be followed by a logi- 
cal expression or term. Similarly, the operators & 
and I must be enclosed by logical expressions to 
form more complex expressions. 

3. Any logical expression can be enclosed in paren- 
theses. Any logical expression containing two or 
more variables to which the "^ operator is to apply 
must be enclosed in parentheses. 

Logical expressions that do not contain parenthetical 
terms are evaluated in the following order: terms con- 
nected by relational operators are evaluated, then terms 
connected or modified by logical operators. When 
parenthetical terms are included in a logical expres- 
sion, evaluation is performed in the order indicated 
above on the terms within parentheses, then on the 
reduced logical expression (reduced in that the paren- 
thetical terms have been assigned a single logical 
value) in the same order. Logical expressions are 
evaluated by pcs in the same manner as Fortran. The 
major difference is the notation used for relational 
and logical operators, as illustrated in the following 
table: 



L4N OPEBATOR 


PCS OPERATOR 


.GT. 


> 


.GE. 


> = 


.LT. 


< 


.LE. 


< = 


.EQ. 


= 


.NE. 


■n^z 


.NOT. 


-n 


.AND. 


& 


.OR. 


1 



Ranges 

The DISPLAY, SET, and dump commands may have as 
an operand two internal symbols separated by a colon 
( : ) , thus indicating a range of variables and arrays to 
be dis|)layed or dumped. For example: 

DISPLAY MAIN.I: MAIN.A 



Commands 

The following section describes, for each pcs com- 
mand, the format of the command and its operands, 
and some examples of how it might be used in check- 
ing out a program. 

QUALIFY Commcindi 

The QUALIFY command allows the user to enter implic- 
itly qualified internal symbols, which are all defined 
in a single source program, after he has issued this 
command with the appropriate defining program 
name. 

Example : 

QUALIFY FTNPGM 

where ftnpgm is the name of the compiled module. 
If the compiled object module has been link-edited, 
both the compiled object module name and the link 
edit output module name must be specified. An isd 
must be available in order to use this command. When 
an object module has been link-edited, an isd must 
have been requested for the output object module in 
addition to the one requested at compile time. Only 
one QUALIFY is in effect at a time, and each successive 
one overrides the previous one. 

AT Command 

The AT command causes control to be passed to 
PCS when the named Fortran statement is reached but 
before it is executed. Other actions (if any) in the pes 
statement are performed prior to resuming execution. 

The system assigns a pcs statement number to each 
statement containing an at command. 

Each time the statement specified in the at com- 
mand is reached during execution, a standard output 
is presented to the user except w^here the statement 
contains an if condition that is found to be false. This 
output includes the Fortran statement number at 
w^hich the command became effective, certain pro- 
gram status information, and the pes statement num- 
ber. The program status information includes the vir- 
tual storage location of the instruction being executed 
and the settings of several internal indicators. 

LTnless the pes statement containing the at command 
also contains a stop, execution of the user's program 
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is automatically resumed following the actions re- 
quested. Only CALL, DISPLAY, DUMP, IF, SET, GO, BRANCH, 

and STOP can follow an at. branch and stop must be 
the last in the dynamic statement. A go command is 
meaningless in an at statement and will be ignored. 

Tw^o or more operands, each separated by commas, 
can be specified in an at command, but each must be 
the statement number of an executable statement. 

Given the following statements in a source program 
named maini: 

IF (A) 10,20,30 



10 


X = 1 




GO TO 40 


20 


X = 2 




GO TO 40 


30 


X = 3 


40 


IF (A.GT. B) GO TO 50 




GO TO 60 



50 . 

60 STOP 

The flow through the if statements could be traced 

with the PCS command. 

QUALIFY maini 

AT 10, 20, 30, m(2), 50 

The counter referred to by the special character %■ 
is incremented by one each time the executing pro- 
gram arrives at a statem,ent designated in an at com- 
mand. The counter is incremented even w^hen the at 
command is included in a pcs statement that contains 
an IF phrase that is evaluated as false. 

DISPLAY Command 

The DISPLAY command is used to print the contents 
of specified variables or arrays. The format of the out- 
put is determined from the type and length of the 
data. 

The DISPLAY can have a list of operands, each sepa- 
arated by a comma. In addition to simple variables, 
the following can be displayed: 
Arrays — When the operand of a display is an array 

name without a subscript, the entire array is 

printed. 

Ranges — When the first and last variable names, sepa- 
rated by a colon, are specified, a series of arrays 
and variables can be displayed. The user must be 
aware of the storage locations assigned by the 
compiler, since the last variable to be displayed 
must be in a higher storage location than the first 
variable. The storage assignments made by the 
compiler can be determined from the storage map 
optionally selected at compilation time. 



Control Section — When the name of a common block 
is specified, the entire contents of the area is dis- 
played. The entire psect containing all non-com- 
mon variables can be displayed by specifying the 
psect name. If the name of the coi^fMON block or 
psect is qualified by the module name (i. e., speci- 
fied as a qualified internal symbol), each variable 
or array in the area is identified and formatted 
according to its data type. When the name is not 
qualified by the object module name (i. e., the 
external symbol form is used ) , the contents of the 
area are displayed in hexadecimal. This method 
can be used if an isd is not available for the object 
module, but, again, a storage map should be avail- 
able for locating the variables in storage. 

Module Nam,e — When a module name is specified as 
an operand, a control section map is formatted. 
The map contains such information as: the name, 
location, and length of each control section; the 
version of the module and each control section; 
and the entry point and save area location of the 
module. 

Dummy Arguments —■ Arguments to subprogram,s can- 
not be displayed until the subprogram has been 
entered and they have been replaced by the actual 
argument values. 
If the user is operating in conversational mode, he 

can terminate the action of the display command by 

pressing the attention button at his terminal. 

If a FORTRAN subroutine named subr consists of the 

following statements: 

SUBROUTINE SUM (A, N, M) 

COMMON B, C, D 

REALMS A (N, M) 

DO 20 I = I, M 

DO 10 i ir: 1, N 
10 C = C4-A(I, I) 
20 CONTINUE 

RETURN 

END 

Then the following would be valid display com- 
mands: 

QUALIFY SUBR 

DISPLAY C,I,J to cause eacli variable In the list to be 

formatted and printed. 
DISPLAY A to cause each element in the array to 

be displayed. 

This statement is equivalent to 

DISPLAY A( 1,1 ):A(N,M) 
DISPLAY B:D to cause the contents of B, C and D 

from the nnnamed COMMON to be 

printed. 

DUMP Comfnand 

The DUMP command is used to cause the contents of 
specified variables or arrays to be written in the pcsout 
data set 
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The DUMP command provides exactly the same re- 
sults as the DISPLAY command, dump should be used 
when there are large amounts of data and/or when an 
offline output of data is desired. The operand of the 
dump command is identical to that of the display 
command. 

The ddef command must be used to define the 
PCSOUT data set before the dump command is issued. 
If no definition has been given, the conversational 
user is prompted to issue it. In a nonconversational 
task, if the ddef is not entered prior to the dump, 
the task is terminated. The organization of the pcsout 
data set is vi. 

The user is prompted at log-off time as to whether 
or not he wishes to catalog the data set. Since dump 
output is not interspersed with sysout output, the user 
should provide a means of correlation if one is re- 
quired. 

Using the sample source program from the display 
command description, the user might enter the fol- 
lowing commands: 

DDEF PCSOUT, VI, DSN AME = name 

DUMP SUBR. %COM This command would cause the 

contents of the unnamed COM- 
MON block (in this case, vari- 
ables B, C, and D) to be format- 
ted and placed in the PCSOUT 
data set. 

DUMP SUBR. SUBR#P This command wonld canse the 

contents of the subroutine's 
PSECT to be formatted and 
placed in the PCSOUT data set. 
Included would be variables I 
and I plus miscellaneous con- 
stants generated by the compiler 
as needed for program execution. 

IF Command 

The if command is used to specify a logical expression 
that must be tnie in order for any other commands in 
the statement to be performed. 

If the PCS statement containing the if also contains 
one or more at commands, the logical expression is 
evaluated when the statements specified in the at com- 
mand are reached. For example, the following state- 
ments appear in a source program named calc* 

5 DO 10 I = 1, 5000 

CALL SUB (ANS) 

IF (ANS) 20, 10, 10 
10 CONTINUE,^ 
20 STOP 

If it is discovered that the upper limit of the do loop 
(5000) has been set too high, the following pcs state- 
ment could be entered. 

QUALIFY calc 

at 10:IF I==1000:STOP 



Then, once execution starts, each time control 
passes to statement 10, the value of I is tested for 
equality to 1000. If I reaches the value of 1000 before 
going to 20, the pcs stop command is performed. 

The counter associated with a pcs statement con- 
taining the AT commands, referred to by the special 
character %, is incremented by one whether or not the 
logical expression in the if is true. 

The % counter can be useful in controlling loops 
in source programs and in controlling the eflfectiveness 
of PCS commands. For example, the above pcs state- 
ment could be replaced with: 

QUALIFY CALC 

AT 10;IF f= 1000; STOP 

In the last statement, rather than testing the value of 
the variable I, a count is incremented each time con- 
trol passes to statement 10. The stop is activated when 
the count reaches 1000. 

Other uses of the % counter can be seen from the 
following examples: 

QUALIFY CALC 

AT 1,0;IF f=l;DISPLAY AXS 

The DISPLAY would be performed only on the first 
arrival at statement 10 

QUALIFY CALC 

AT 10;IF %==(% /]0)**10;DISPLA1' ANS 

The DISPLAY would be performed every tenth time 
statement 10 is reached. This example shows that the 
fraction is discarded in integer division. 

REMOVE Command 

The remove command permanently cancels all dy- 
namic PCS statements w^hose numbers are specified as 
operands, pes produces a statement number following 
entry of each statement containing an at command. 

These statement numbers are used in the remove com- 
mand to specify the pcs statements to be canceled. 

Taking the following source statements as an ex- 
ample: 

C PROGRAM MAIN 
10 READd, 20)A 
20 FORMAT (F6. 2) 

IF (A) 10,30,30 
30 B = A*3.14 

WRITE (2, 20)A, B 

GO TO 10 

then the followdng statements could be entered to 
check the progress through the program: 

LOAD MAIN 

QUALIFY MAIN 

AT 10(2); DISPLAY A 

AT 30(2); DISPLAY B; STOP 

CALL 
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When control reaches the if statement, the value of 
A is displayed; when the write statement is reached, 
the value of B is displayed. The stop causes the next 
command to be read. The user might then decide 
that the program is executing correctly, and wish to 
continue running without the checkout statements. He 
could then enter: 

REMO\^ 1, 2 
GO 

In this example, the numbers 1 and 2 are the pes state- 
ment numbers that have been assigned to each at 
command. They are printed immediately following 
entry of the stalement either at the user's terminal if 
in conversational mode or on the sysout data set if in 
nonconversational mode. 

CALL, GO, BRANCH Ccmmand^ 

These commands can be used either as a separate com- 
mand or as part of a pes statement. The effect of these 
commands is to transfer system control of a task from 
command mode to program execution mode. 

The commands have three forms: eALL, go, branch. 

1. CALL [module-name] 

The CALL command loads the module named in 
the operand (unless it is already loaded) and 
initiates execution at the beginning of the program. 
Only main programs should be referenced by the 
CALL command; otherwise, the results are unpre- 
dictable. 

2. GO 

There is no operand. This command is used when 
the user wishes to resume execution following a 
PCS STOP command, a Fortran pause statement, or 
an attention interrupt. 

3. BRANCH [module.stmnt~no] 

This is used w^hen the user wishes to change the 
flow of a program; it is equivalent to a go to state- 
ment in the original source program. The object 
module must be loaded and executing prior to is- 
suing the BRANCH. This form cannot be used in 
initiation of program execution or in situations that 
are illegal in the Fortran language (e.g., illegal 
entry into loops). The statement number must 
be an executable statement. 

For example, if the following statements appear in 
a source program : 
C PROGRAM MAINl 



10 



20 



X = A 
GO TO 20 
X = B 



30 CALLSUBR(X) 



and the user discovers that the go to statement has 
the WTong statement number, he can temporarily 
correct the invalid go to with the following pcs 
statement, so that the rest of the program can be 
debugged. 

QUALIFY MAINl 
AT 10(2);BRANCH 30 

Note that the branch command combined with an 
AT cannot be used to insert a missing go to state- 
ment without bypassing the statement referred to in 
the AT. In the above example, if the go to had been 
missing from the source program, the branch com- 
mand w^ould have to be made effective at statement 
10. In this case, the assignment statement x = a 
would be bypassed, so that a set comand would be 
necessary to achieve the same results. 

SIT Command 

The set command is equivalent to an assignment state- 
ment in the original source program. It enables the 
user to change the contents of any variable or array 
element. It has the form: 

SET a==b 

where a is any simple variable or subscripted array 
element, and b is any logical or arithmetic expression. 
A list is allow^ed; for example: 

SET a=b, c=d, e=f 

When the set is performed, the new value of the varia- 
ble is displayed on sysout in the same format as if 
the name had appeared in a display command if 
limen=i. This output is produced from the changed 
field and reflects the results of conversions and ex- 
pression evaluation. 

In a set command, all variables and constants must 
be of the same type. The permissible lengths vary with 
the type. Real variables or constants must be 4 or 8 
bytes in length, integer 2 or 4, and logical 1 or 4. 

If the expression is a character constant that is not 
the same length as the variable, the character constant 
is either truncated or lilled out on the right with 
blanks. If the expression is a hexadecimal constant 
that is not the same length as the variable, the hexa- 
decimal constant is truncated or filled on the left wdth 
zeros. 

In the example given for the call, go, and branch 
commands, the missing go to statement could be effec- 
tively inserted by the following pcs statement: 

AT 10;SET X = A;BRANCH 30 
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The SET command is useful in setting variables to some 
initial value, in correcting erroneous assignment state- 
ments, and in inserting missing assignment statements. 
It should not be used in a situation that is invalid in 
the original Fortran program. For example, in the fol- 
lowing statements: 

5 DO 10 I=J, K 

L(I) = L(I)+M 

10 CONTINUE 

the values of I, J and K cannot be changed by a dy- 
namic SET command that may be activated at state- 
ments 5(2) or 10. The set command could be used at 
statement 5, however, to initialize the values of J and 
K. For example: 

AT 5; SET J = ], K = n/2 

The SET Command, like display and dump, can refer 
to dummy arguments to a subprogram once the sub- 
program has been entered. 

A complex variable can be set to the value of 
another complex variable, but it cannot be set to a 
constant value, nor can complex arithmetic be per- 
formed with set. For example, if a Fortran program 
had the following specification statement 

COMFLEX*16 A, B, c(lO, 10 ) 

the following set commands would be valid: 

SET A = B 

set C( 1,1 ) = C(3, 1 ) 

A set command cannot refer to the control section 
containing instructions generated by the compiler. The 
virtual storage assigned to this control section by the 
system is protected so that its contents cannot be 
changed. 

STOP Command 

The STOP command halts execution of a module and 
prints the current instruction location and program 
status information, stop does not have an operand. 
Execution of the module can be resumed with a run 
or GO command; if execution is not resumed, any data 
sets that the module has left open should be closed 
with the CLOSE command. 

PCS Diagnostics 

PCS, like the Fortran compiler, examines each state- 
ment for validity and issues diagnostics alerting the 
user to errors. 

Diagnostics usually are issued immediately upon 
reading the command. The conversational user can 
reenter the statement with the necessary correction 
made. The nonconversational user has no chance to 
correct errors; a diagnostic message is issued and the 
PCS statement is ignored. 



Certain errors are not detected until execution has 
begun. These errors are the result of some action that 
has been requested in a dynamic pcs statement (i.e., 
one containing an at command). In a conversational 
task, after the diagnostic is issued, the terminal is 
placed in command mode. The user can then remove 
the erroneous statement, reenter it correctly if he de- 
sires, and continue execution with a go. If he wishes 
to perform the corrected statement immediately, he 
must use the statement number in the at operand 
of the branch. In a nonconversational task, the diag- 
nostic is written on the sysout data set and the next 
command is read from sysin. This may result in pre- 
maturely terminating program execution. 

The errors described below^ are those that are not 
detected until execution has begun. 

Dimension Errors 

Each time the user refers to a subscripted array 
in a PCS command, the subscript values are checked 
against the dimensions of Oie array as declared in the 
FORTRAN program. Since the values of variable sub- 
scripts may vary during execution, the error is not 
detected until the command containing the invalid ref- 
erence is performed. Constant subscripts that are in 
error are detected when the statement is first read, 
and the user is informed immediately. If an array is 
a dummy argument, subscript errors are not detected 
until the command is performed, since both the di- 
mensions of the array and the subscripts may be 
variable. 

Range Errors 

A DISPLAY or DUisip command may have as its operand 
a range of symbols. These symbols, which represent 
the starting and ending storage locations to be printed, 
must be in sequential order. When both symbols are 
subscripted arrays, the subscripts must be evaluated 
to determine the particular element being referred to. 
To illustrate: 

QUALIFY MAIN! 

AT 1 0;DISPLAY A ( I ) : A ( J ) 

If, when control reaches statement 10, the value of I 
is higher than the value of J, the range would be 
invalid. 

Program Interruption 

Program interruptions can occur any time an expres- 
sion must be evaluated in a pcs command. Five such 
interruptions are recognized: 

1 . Fixed-point overflow exception 

2. Fixed-point divide exception 

3. Exponent-overflow exception 
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4. Exponent-underflow exception 

5. Floating-point divide exception 

When any of these interruptions occurs, a warning 
message is issued to the user and the requested action 
is not performed. These interruptions are not proc- 
essed by the interruption handling module provided 
by the compiler; therefore, any call overfl or call 
DVCiiK statements do not recognize the interruption. 
(Refer to Appendix C for more details on program 
interruptions.) 



Dummy Arguments 

When dummy arguments are referred to in a pcs com- 
mand, the subprogram in w^hich they are declared 
must be entered prior to the point where the command 
is activated. Dummy arguments must not be used to 
form a range of variables to be displayed or dumped. 
There are also those conditions under which dum- 
my arguments are not defined in the isd for the 
subprogram. 
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Appendix C. Programming Considerations 



This appendix addresses a number of topics that can 
assist the tss/360 Fortran programmer in achieving 
efficient and trouble-free execution of his object pro- 
gnuTi. Tlie sections of this appendix discuss: 

].. 01)jcei-('imc efficiency througli compiler optimiza- 
tion, optima] use of source statements, and use of 
the iinkcige ixlitor and dynamic loader. 

2. Eifcci oi compiler optimization on the use of the 

projiiitm control system (res), describing con- 
ditioiiS nn(k r wiiich the user may want to inhibit 
optinn/ation liy tlic compiler of th(^ object code. 
3 Mnit.i}:)l{' cxrciitioiis. to ak^rt tltc^ user to possible 
prol)i(Mns \v]\v\] *.'xi'cnting iViorc than one program 
Ix'tw't'Cii a LoooN and a logoff. 

4. l.ihi'ar}' management. 

5. SxsUiu namitJL'^ rules that ])re\e]it the user from 
iiKidxcTlrulK- choosing a subirrogram or otlier ex- 
trnial name such that a conflict would occur be- 
twc^eii ihis name and a system namr-. 

6. Executing commands from within a fobtran pro- 
gram. 

7. Miscellaneous programming considerations. 



Ofcfecf Time Effkiency 

Object Code Optimizofiori 

Efficient object code can be achieved by optimizations 
performed by the compiler, by optimal ordering of 
source statements by the programmer, or both. 

Compiler Optimization 

This section describes optimization of the user*s pro- 
gram normally jDerformed by the compiler. The section 
"Effect of Compiler Optimization on pes Usage" dis~ 
cusses the relation betw^een compiler optimization and 
use of the program control system (pcs). 

A considerable amount of the compiler's effort is 
devoted to producing an efficient object program. This 
processing is called "optimization/' The effects of the 
compiler's optimization can be seen by examining the 
optional object code listing. It can be observed that 
the instructions to perform certain computations are 
sometimes not located wdiere one would expect to find 
them. This is due to the action of tw^o optimization 
processes: (1) recognition of "common'' expressions 
and (2) removal of expressions from do loops. 



Tw^-o occurrences of the same expression in a for- 
TiiAX j)rogram arc^ "common" if there is no possibility 
of an}' of the operands recei\'ing a new value between 
I lie occurrences imd if program control cannot reach 
the second occurrence without luuing passed the first 
occi.n-(nicc\ In this situation, tin* compiler often gener- 
ates code to e\aluate the exprc^ssion only at the first 
occvrrencc^ and to rcaise this \ahu^ at the second and 
lalei' occiu'rences. 

If an expression occurs in a do loop and if none of its 
opcaands can ha\'e different values for different repe- 
titions of the loop, th(^ (wpression is "removable." The 
com[:>iler gcaierates code to evaluate such an expression 
hcfcrc centering the loop and to use the computed 
\^alue v\'h(a'e needed inside the loop. 

Thc^se processes can contribute much to the efficien- 
cy of th(^ objc^ct program, but there is an important 
sid( elfect. If the program is testing for such condi- 
lioris as arithmetic o^'ca'flow and divide check, the 
o])crafions giving rise to these conditions may not oc- 
cur at the exi)ect(^d place or with the expected fre- 
([ucnc}-. A related optimization process is the compu- 
tation b\' tlie compiler of all quantities w^ose operands 
arc constants instead of the generation of instructions 
!o cany out tlu^ computation in the object program. If 
tlic values of the constant o])erands are such as to 
caus(^ o\^(a'flov,\ the o\'erflow wall take place during 
compilation (causing a diagnostic message) rather 
thar, during execntion of the object program. 

(AimpilcM- optimization can also cause register con- 
trail- io 1)0 used at points quite remote from the point 
ni \')'n]hiii. In some cnisc^s, frc(|uently used address 
c(M!st;inls ma}' b(^ loaded into general registers only 
at tlir !K\cinning of the program and kept there per- 
niancaifly for use as ucHtled. Other addresses, subscript 
(^xiprcssions, civ., ma\' be held in registers across the 
ran^r of a do 1oo]i or nest of loops. Even w^here such 
'\ii;lo!)ar' rcgisica- assignments are not made, the con- 
tents of au\' r(nj;ister, onc(^ esta-blished, is remembered 
and ma.\'. under the ])rop(a' conditions, be used later 
u'itl.out reloading. 

Subscript expressions, especially those involving do 
loup \'ariables, receix'c extensive manipulation, and 
tluar evaluation may be spread over several levels of 
a DO loop nest. In such instances, an occurrence of a 
looi) variable nudtiplied by other factors is evaluated 
b\' irn'tialization at the top of the loop and addition of 
an incrcmient at the bottom just before returning for 
another iteration. 
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If the most recent value of a do loop variable is al- 
ways stored in its assigned location each time through 
the loop, the do loop variable is said to be *'material- 
ized." In many do loops, there is no computational 
need for the value of the loop variable and it may not 
be materialized. Instead, a subscript expression in- 
volving the loop variable will be tested to determine 
the current num.ber of repetitions of the loop. A fea- 
ture of the FORTRAN language is that no assumption 
can be made about the value in the storage location 
assigned to a do loop variable after the loop has been 
executed due to completion of the proj)er number of 
repetitions. (This does not apply to other exits from 
the loop, since the existence of such exits as a go to 
statement causes the compiler to materialize the loop 
variable. ) 

Examination of the optional storage map of the ob- 
ject program produced by the compiler can show that 
the storage assignments for non-coMMON variables are 
not made in the order of declaration or appearance In 
the source program. Rather, these variables are as- 
signed by the compiler in an order intended to mini- 
mize the number of distinct address constants and 
subscripts needed in the object code. Undimensioned 
variables are placed first, followed by arrays in order 
of increasing size and dimensionality. Variables whose 
assignments are controlled by equivalence relations 
are nlaced after those that are not in equivalence. 

The purpose of equivalence is to permit overlays 
to reduce object-time storage use. It is not intended 
to permit intermingled references to the same storage 
locations by two different names. If X and Y are as- 
signed to the same storage location by equivalence, 
and a value is given to X, there is no guarantee that 
a subsequent reference to Y in the same program will 
use this value. The compilers optimization processes 
do not recognize the relationship between X and Y. 



Effkwnf Use of FORTRAN Sfafemenfs 

The above section described optimization performed 
by the compiler on Fortran programs. Further optimi- 
zation of the object code can sometimes be achieved 
by the Fortran user's being aware of uses of the 
FORTRAN language leading to more efficient object 
code. Such uses are described here. Under no circum- 
stances, however, is the user required to program in 
accordance with the guidelines presented here. 

The compilers optimization is limited in various 
ways, such as lack of freedom under the rules of the 
FORTRAN language ( e.g., the compiler cannot rearrange 
variables in a common block) or lack of information 
(e.g., the compiler cannot make any assumptions about 
the behavior of external subprograms). 



In laying out user-controlled storage (comtion and 
eqitivalence), the user can find it worthwhile to align 
the storage locations for all variables to the proper 
byte boimdaries for their arithmetic or logical type: 
doubleword, fullword, or halfword quantities should 
be assigned to locations that are multiples of eight, 
four, or two storage locations, respectively, from the 
beginning of the area being laid out. This permits 
access to these quantities by machine load and store 
instructions rather than by subroutines accessed as the 
result of specification exceptions. (See the discussion 
of object program interruption provisions in ihe 
Miscellaneous Programming Considerations section 
below. ) 

If the user, when ordering a common block, fol- 
lows the same criteria used by the compiler in laying 
out non-coM^fON variable storage, the same bene- 
fits accrue. Placing scalars first, then small arrays, etc., 
tends to improve the address coverage in the object 
code and obviates the need for object-time boundary 
alignment 

Since each common block must be covered by its 
own address constants, the use of a large number of 
small COMMON blocks leads to less efficient addressing 
than a few large blocks. 

In passing information to a subprogram, explicit 
arguments are more expensive than implied arguments 
in COKIMON. Not only must each individual argument 
have its own address cover in a subprogram, but in- 
structions in the subprogram prologue must be exe- 
cuted to move the address in from the calling se- 
quence. A group of arguments in a common block, 
however, can all be addressed with the same address 
constant and need no initialization. 

The compiler's manipulation of expressions is re- 
stricted by the Fortran language requirement that the 
source program associations (both explicit associa- 
tions determined by parentheses and those implied by 
left- to-right order) be respected, a+b + c must be 
treated by the compiler as (a+b)+c. Common expres- 
sions, removable expressions, and constant expressions 
can be recognized only if the associativity permits. 
Therefore, the efficiency-minded user writes expres- 
sions in such a way as to permit optimization. 
For example, in a*(2./3.), the division of constants 
is done by the compiler; in (a*^2.)/3. it is not. If ki 
and K2 are unchanging in a do loop on I, the sum 
K1 + K2 is computed outside the loop if ki + k2+i oc- 
curs; it is not removed from i + ki + k2, or ki+i + k2. 

The compiler is unaware of the properties of sub- 
programs external to a program being compiled. Even 
for FORTRAN iv-supplicd subprograms such as sin^ the 
user is free to substitute his own subprogram for the 
library routine. Therefore, the compiler does no op- 
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timization on external function calls. If the user wants 
to save execution time by eliminating redundant calls 
on the same function with the same arguments, he 
must do this himself in his Fortran program. Only 
the user has the necessary knowledge of w^hether or 
not a function uses or changes variables in common, 
changes its argimients, performs i/o, runs internal 
counters, etc. (The function routines supplied in the 
FORTRAN iv-supplied subprograms do none of these 
things. ) 

The use of mixed arithmetic types in expressions 
and across the ec^ual sign in assignment stateiTients 
leads to the execution of conversion functions, the 
most expensive of which are those converting real 
to INTEGER and vice versa. Unnecessary use of mixed 
types thus diminishes efficiency. 

Although the compiler may remove expressions from 
DO loops, it does not remove complete statements. For 
example, every assignment statement occurring in a 
loop results in at least a storing of a value into thc^ 
left-side variable on each repetition of the loop. For 
eflBciency, statements that are entirely invariant within 
a loop should not be placed inside the loop. 

Much normal optimization is inhibited for do loops 
with extended range (i.e., a branch out of the loop to 
execute some remote statements, followed by a branch 
back into the loop). This programming practice re- 
duces the efficiency of those do loops in which it is 
used. 

Computed go to statements with three or less des- 
tinations produce less efficient code than equivalent 
arithmetic if statements. 

At the time of writing his program, a user thinks 
in terms of virtual storage, of which he has a very 
large amount available. During execution of the pro- 
gram, the system maps this virtual storage onto the 
much smaller actual main storage of the computer, 
using a page (4096 storage locations) as the basic 
unit. Each page of virtual storage referred to in the 
program must be made available in main storage be- 
fore the reference can be successfully made. Tw^o at- 
tributes of a program can decrease the efficiency of 
TSs/360 in carrying out this task, resulting in a loss of 
system performance. These attributes are references 
to a number of different pages in rapid succession and 
a large number of total pages required. Some simple 
programming and operating practices can alleviate 
both problems. 

When indexing a large multi-dimensional array, it 
is better to vary the left-most subscript the most rap- 
idly. This causes the array elements to be accessed in 
order of their location in storage rather than out of 
order. For example: 



DO 24 J = 1,50 
DO 24 1=1, 80 
24 A(I, J)=il. 

is better than 

DO 24 1=1, 80 
DO 24 J= 1,50 

24 A(I, J) = l. 

from the point of view of page utilization. 

In coding a subprogram, it may be w^ortliwhile to 
move the value of an argument into the subprogram 
by setting a local variable equal to it, if the argument 
is referenced frequently but is not an output argu- 
ment of the subprogram. For example: 

FUNCTION F(X) 
XLOCAL^X 



YzrXLOCAL/Z 



( and other references to XLOCAL, rather than X ) 
is better than 

FUNCTION F(X) 



Y=X/Z 



( and other references to X) 

since in the latter case the actual argument presented 
for X in a call on the subprogram is located in some 
other module and, hence, probably on a page that 
would otherwise not need to be accessed during the 
execution of the program F. 

The user can also minimize the number of pages 
referred to, w^here the executable code generated for 
his FORTRAN Statements exceeds one page or extends 
over many pages. The general rule for attaining mini- 
mum page references for such programs is to place 
infrequently used statements in a separate subpro- 
gram. If this is inconvenient, the infrequently-used 
statements could be placed in a separate area of the 
program, near the end perhaps, while grouping to- 
gether those areas of the program that will be exe- 
cuted most frequently. Since calls on subprograms are 
in general references to separate pages (unless link 
editing is performed, as discussed below), it may be 
more efficient to minimize the number of subprogram 
calls within areas where optimum efficiency is desir- 
able. 

Use of Linkage Editor to Improve Obfect-Time Efficiency 

Linkage editing is a valuable process for reducing the 
total number of pages required for execution of a pro- 



Appendix C: Programming Considerations 109 



gram using many subprograms and for obtaining bet- 
ter utilization of allocated storage. Object program 
loading time can also l,)e reduced by linkage editing 
to package the control sections together and thus pro- 
duce a dense packing of virtual storage. The order in 
which programs are packed should be such that as 
few references as possible are made by code in one 
page to code in other pages. Maximum efficiency can 
therefore be achieved if the packing is done following 
a study of relation between programs and between 
different parts of large programs. 

Use of Dynamic Loader to Improve Object-Time 
Efficiency 

Explicit unloading (using the unload command) of 
modules that are no longer of interest to the user in 
a session is a good practice if: 

1. these modules referred to a great many different 
pages of virtual storage; and 

2. no further references will be made to these pages. 

Use of Control Section Packing to Improve 
Object-Time Efficiency 

To allow the system to function more efficiently when 
executing object program modules, a dynamic method 
is provided for combining more than one control sec- 
tion into a single page of virtual storage at execution 
time. Fewer pages wall thus be referred to, reducing 
system paging recpiirements. Control sections of like 
attributes within a module will be allocated con- 
tiguous storage, with the secondary control sections 
aligned on doubleword boundaries. You elect the 
type of control section packing to be used (if any) 
in your logon command. 

Effect of Compiler Optimization on PCS Osage 
Appendix B contains a description of the use of pes 
with FORTRAN programs. In Appendix B it is stated 
that the fortoan user should select the isd option to 
ensure that the res statements operate correctly. The 
following paragraphs explain why the pes user sliould 
generally request an lsd, and under what conditions 
he need not request an isd. 

Due to the optimization method, use of pcs with 
optimized Fortran programs might easily lead to er- 
roneous results. For example, consider the following 
program : 

50 DO 200 1 = 1, N 

100 X(I)r=A(I) 4- (B+1 .0) 
200 CONTINUE 



Th(^ sum of (B-f-LO) is in no way alfcctc^d by ilic 
iact that a loop is occurring in Vv'Jiich tlie sum is re- 
(fuircd, so tlie compiler computes the sum once, out- 
side the loop, and uses tins \-aiue inside the loop. 
Sup]:>()sc now lliat t\\c usc^r w<uits to chanee the \ ahie 
of B at statc^nient 100 using ihc res si':t statciucnt. A 
in]]\' oi)limi/(xl object program woiiid not be aware 
that ]l has bec^n reset, as (B-f-l.O) would not be re- 
computed within the loop; tlivr^, the user's intent 
\\()ii]d not 1)(^ accomplislK^d. 

A second (wample of compiler optimization leading 
to probhans when pc:s is used would be wliere, in tfie 
abo\'(' example, tlie FOirnvw user wants to use the 
res DISPLAY' comnauid to (]e!(^rnu'n(^ tlie current \'alue 
of tlu^ loo}) \'ariable [. Tlie object code would have 
no need for I except for countirig passes through tlie 
loo}) and ind(.\xi]ig into th(^ X and A arrays, so no 
code would be generated to save the current \'alue of 
I in the storag(^ location assigned to I. (Indeed, no 
storag(^ location may hav(^ been assignc^d to I. ) Thus 
a DLSPFAY of I would not produce the desired r(\sults. 

It is clear that such complex r(\strictions on pes 
usagc^ as implied by the compiler optimization pro- 
cedures would not be desirabl(\ For this reason, tlu 
hX)irri;\\ user ma}^ r(^({uest that the compiler modify 
its <j;eneration of tlii^ object progi'am in such a manner 
as to allow com]i](l(^ u'^e of res faciliti(\s on fortrax 
o])l\'ct })i-o<zram'v. The nsc^r rc^ffuests such modification 
of ()l)ject codr genca'alion b\' s])ecifvinfj:. following his 
enti-anc(^ of th(^ irx conrmand. tliat hc^ wis]i(\s an In- 
lernal Symbol DictionaiA^ (rsn). Such a rc^quest: 

1. Inhibits optimization as reciuircnl to allow all pes 
capabilities to be available 

2. Produces an !si\ \\^hicb allows the FOR'rRAX user 
eas\' rc^ercaicc^ to all symbols within the fortrax 
sub})r()gr<nn 

A uscT can still use i^es, of course, (^ven if hc^ does 
not recjuest an rsn. To do so, howc^vcM'. lie must have 
extensi\-e knowledgt- of his objc^ct code to be assured 
tliat his pes re([uests \^ill gi^'e the/ desired result. 

Thert^ is one t\'p(^ of [*c:s usage in which the fortf^ax 
usc^r narst exerc-ise considc^rable care, even if an iso 
is re([uest(Hl. This us(^ of pes can be dc^scribed with 
th(^ aid of the following program: 



5 
10 



DO 10 1=1, M 

M = M+1 
L(I) = L(I)4-M 
CONTINUE 



The statement M=M+1 is clearly illegal, as it vio- 
lates a FORTRAN language rule (and the compiler pro- 
duces a diagnostic message). Just as it is illegal in 
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the original Fortran program, it slioiild not be simu- 
lated by compiling a program without the M=M4~1 
statement but directing pes to add one to M at state- 
ment 5. Similarly, in the following example, the use of 
PCS to specify that at statement 100 the program 
should transfer control inside the do 200 loop (using 
the PCS RUN directive) is not legal, as this would 
violate a language rule v/ere it replaced by a go to 
200 in the original Fortran program. 



100 



DO 200 1 = 2, 10 

A(I)=:A(I+1)/A(I-1) 

200 CONTINUE 

How^ever, it is legitimate in the following program, 
at statement 100, to direct the object code to run at 
statement 200, as this is equivalent to a go to 200 at 
source statement 100, a legitimate branch. 

50 READ (5, 9, END = 200) A, B 

X=A**2+A/3.1416-A**B 
100 WRITE (6, 9)A, B 

GO TO 50 

200 STOP 

9 FORMAT (2E20. 7) 
END 



Mulflple Executions 

"Multiple ('X(.'en(ii)Tis" refers to executing more than 

one ])rogram hcfwetn logging on and logging off. 



2. Both programs refer to the same data set with dif- 
ferent data set reference numbers. Each execution 
must be preceded by a ddef command giving the 
ddname as appropriate for the data set reference 
number. Since the second ddef contains the same 
dsname as the. first, effectively redefining it, the 
first definition need not be released. 

3. Each, program refers to a different data set with 
the same data set reference number. Each execu- 
tion must be preceded by a ddef command giving 
the dsname for the ddname. In addition, since the 
second ddef has the same ddname, the first defini- 
tion must be released prior to the second ddef. 
When a data set on a private volume is released, 
the input/output device is also released unless an- 
other defined data set resides on that same volume. 
In a nonconversational task, if a device is freed by 
a RELEASE command, the user must account for this 
w^lien specifying the secure command. For example, 
if two programs read different data sets on separate 
private volumes and both are referred to by data 
set reference nimiber 1, the following procedure is 
necessary: 

a. secure Two devices — even though only one 

device is needed at any one time 

b. DDEF For first data set 

c. CALL First execution 

d. release First data set 

e. DDEF For second data set 

f. BUN Second execution 



Data Definition Considerations 

A ddef command provides the linkage between the 

data set reference number used in the Fortran pro- 
gram and the actual data set. Once a ddef has been 
entered, it remains in effect until logoff unless the 
definition is released or redefined. 

If two programs are executed in succession, the 
following conditions could arise: 

1. Both programs refer to the same data set with the 
same data set reference number. One ddef com- 
mand issued prior to the execution of the first pro- 
gram is sufficient for both executions if the data 
set is read in both programs or wTitten in the first 
and read in the second. If, however, the data set 
is written in both programs and not rew^ound in 
the first, the data is not automatically concatenated. 
Data written in the first execution would be de- 
stroyed by the write operation in the second exe- 
cution. If the user does not want this to occur, he 
must take the steps outlined in item 3. 



Linking COMMON Between Multiple Executions 

When executing a series of programs in sequence, if a 
prior module is not unloaded before the execution of 
the next program, any external symbol reference in 
the second module will be resolved, if possible, by 
definitions of that symbol in the first module. This 
may or may not be desirable. If this is not desirable, 
an UNLOAD command should be issued after the first 
main program has completed execution, causing any 
blank or named commons to be removed from the 
task's allocated storage. Any subsequent module that 
is loaded containing a common block w^ould have stor- 
age allocated as if it w^ere the first usage. 

When the user does want to pass the same common 
block from one execution to the next, the unload 
command should not be entered. In this case, the 
references to common in the second execution would 
be to the common that w^as allocated storage with the 
first execution, if both are unnamed or have the same 
name. 
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Program Libraries 

Program Library Lisf Coniro! 

A program in tss/360 can consist of one or more object 
modules. All programs in tss/360 are stored in object 
module form in program libraries, which are parti- 
tioned data sets. A program consisting of only one 
object module is stored entirely within one library; 
how^ever, if a program consists of several object mod- 
ules, those modules may reside in different libraries, 
depending on how the user has stored them. During 
link editing and execution, the system can automat- 
ically retrieve all object modules required, if the user 
has defined the libraries containing those object mod- 
ules. The method for doing this is described in the 
following paragraphs. 

There are four categories of program libraries: 

1. System library (syslib) 

2. User library ( userlib ) 

3. User-defined job libraries 

4. Other user- defined libraries 

tss/360 does not allow^ a library to contain more 
than one declaration of any external symbol, except 
those control sections that have no content (e.g., 
named or blank common from a Fortran main or 
subprogram ) . 

The system library contains some service routines 
provided by the installation. It also includes the 
FORTRAN supplied subprograms. 

The user library is the private library assigned to 
each user when he is joined to the system. This library 
is automatically defined for him and made a part of 
his catalog by the system. His user library is thus avail- 
able each time he logs on. If the user does not specify 
job libraries in a task, the object modules resulting 
from his use of the language processors are placed in 
his user library. 

The user may want to restrict his user library to 
object modules that he executes frequently or that he 
uses frequently in the buildup of other object modules. 
The system's library list facilities make it possible for 
the user to control the contents of his user library. 

The program library list is a defined hierarchy of 
program libraries. It is initialized at log-on time and 
consists of the user library and syslib. 

The library at the top of the list automatically re- 
ceives all object modules resulting from language 
processing. As noted above, if no job libraries are de- 
fined, the library at the top of the list is always the 
user library. How^ever, the user can specify that a 
job library be added to the program library list to 
receive the output of the language processors. He 
does this by issuing a ddef command defining that 



job library and containing the operand option= 
joblib. When this command is executed, the name of 
that job library is added to the top of the program 
library list. That library then receives all subsequent 
module output of the language processors until an- 
other job library is defined (and is thus at the top of 
the list) or imtil a release command is issued for that 
job library. A job library must always have a vp data 
set organization; it can be defined on public or private 
volumes. 

In addition to using the program library list to store 
object modules, the system uses this list to control its 
order of search when looking for object modules that 
must be loaded at execution time. The library at the 
top of the list is searched first, then the next-to-the-top 
library, etc. until finally, the user library and syslib 
are searched. 

In sum.mary, the user has the following basic library 
setups for handling the object modules by the lan- 
guage processors. 

® User library — As this is always available and is al- 
ways searched, the user may want to reserve it 
for frequently used checked out programs. All 
users usERLiBs are kept in public storage and, 
hence, are always mounted on system devices. 

^' Session joblib — By issuing a ddef command for 
a new librar\^ at the beginning of a session, a 
user can create a library to contain all m.odules 
assembled or compiled during the session. 

• Cataloged Private Volume joblib — A user can di- 
rect output to and retrieve it from a library of 
infrequently used modules by issuing a ddef com- 
mand for a cataloged job library that resides on 
a private removable disk pack. When using pri- 
vate job libraries in a nonconversational task, the 
user must request (via secure) a device for that 
job library. Modules can be entered in such a 
library: 

«* Automatically if the library is the latest defined 
one in the session. 

• By link-editing it from his userlib, session job 
library, or public device job library and speci- 
fying to the linkage editor the desired private 
device job library as the output destination. 

• Cataloged libraries on private volumes can 
also be shared among users. 

® Cataloged Public Volume joblib — This type of 
library can be useful in setting up (and using) a 
library of frequently used programs whose names 
and externa] symbols conflict with other programs 
in userlib. For example, versions of frequently 
used programs can be set up wdth one userlib 
and another in a job library. All job libraries re- 
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siding on public volumes are automatically cata- 
loged at DDEF time and may be shared among 
users. 

During linkage editing, the program library list can 
also be used to define to the system: 

• The library that is to receive the link-edited object 
module. 

* The sequence in which libraries are to be searched 
if the system must find other object modules to de- 
fine references in the linkage-edited object module. 

The fourth category of libraries may ^'^ defined by 
a DDEF command with the joblib operand omitted. 
Such libraries may be referred to by a linkage editor 
INCLUDE statement, but are not fisted in the program 
library list, and hence are not included in the auto- 
matic library search, nor are they available to the 
dynamic loader. Refer to Linkage Editor for an ex- 
planation of linkage editor program libraries. 

Since one library may not contain more than one 
definition of any external symbol, diflEerent versions of 
the same program must be kept in different libraries. 
For example, a user has a checked-out program in 
his usERLiB and wants to recompile the program with 
modification but retain his original version until the 
new version has been checked out. A ddef with a 
JOBLIB option causes the new module to be stored on 
the job library rather than userlib. The user can con- 
tinue after compilation wdth his checkout of the new 
version, since any subsequent load or run command 
in the task naming the module retrieves the new ver- 
sion from the job library. If, w^hen the new version 
has been successfully tested, the user wants to re- 
place the old version with the new version, he can 
linkage-edit the new^ version onto his userlib. Link- 
editing can be used to copy a program module from 
one library to another. If the user does not want to re- 
tain the new version, he m,ust either erase the module 
on the job library or release the job library. Releasing 
the library removes it from the program library list 
and automatically causes subsequent retrievals of that 
module to revert to userlib. Erasing the module does 
not remove the job library from the program library 
list, but any subsequent references to that module are 
resolved from userlib after the job library has been 
searched unsuccessfully. 

The POD? command facilitates the orderly mainte- 
nance of programs within various job libraries and 
userlib. pod? enables the user to obtain on sysout a 
list of the member names (and optionally the alias 
names and other member-oriented data) of individual 
members of cataloged vpam data sets. 



SubstHuiing FORTRAN IV-Supplied Subprograms 

All IBM-supplied subprograms are stored on the system 
library (syslib). Any subprogram can be effectively 
replaced by storing a user's version (with the same 
name or entry point) on one of his own libraries, 
since the system library is always the last one searched. 
If the user stores his version on his user library, then 
all of the user's programs, when executed, refer to his 
version of the subprogram. If the user wants to refer 
selectively to either version, he should store his ver- 
sion on a job library, so that it is selected in a given 
task only if he has issued a ddef for that job library. 

When object modules are loaded by the dynamic 
loader, any substitute modules should be explicitly 
loaded (using the load command) prior to issuing 
a RUN command for the main program. This guaran- 
tees that the desired modules will be used. 

Note that, if a module is loaded explicitly, it will 
not be unloaded when the calling module is unloaded, 
i.e., it must be unloaded explicitly using the unload 
command. 

When object modules are link-edited, references 
to modules on the system library are left for dynamic 
linking at load time. If, however, the user has his own 
version of a subprogram on a job library in the pro- 
gram library list during the linkage edit run, this ver- 
sion is automatically included as part of his output 
module. He cannot then attempt to select either ver- 
sion of the subprogram during subsequent executions. 

Sharing Libraries 

A user can allow another user to share (i.e., access) 
one or more of his cataloged job libraries. When the 
owner permits access to his job library, all of the ob- 
ject modules on that data set are usable by the sharer. 
This does not imply that if the owner and/or one or 
more sharers use the same program at the same time 
they are sharing (co-using) the same copy in main 
storage. This aspect is controlled by the public option 
declaration at compile time. 

The data set owner isues a permit command to des- 
ignate the other users who can share his job library 
and to indicate the level of access for those users. 

• Read-only access — the sharer can use the object 
modules on the library but cannot add, replace, or 
erase a module. 

• Read-and-write access — the sharer can use any ob- 
ject module on the library and can add or replace 
modules. He cannot use the erase command to de- 
lete a module from the library. 

• Unlimited access — the sharer, in effect, can treat 
the library as his own; thus he can even erase mod- 
ules from it. How^ever, when any user with un- 
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limited access, including the sharer, attempts to 
erase a shared vi or vp data set, the system will first 
check to see if there are any active users of that 
data set. If there are active users, the system issues 
a diagnostic and disregards the command. If there 
are no active users, the system executes the erase 
command. 

To gain access to a data set for which he has been 
previously authorized, the sharer must issue a share 
command, w^hich places an entry for the owner's data 
set name in the sharer's catalog. The sharer can then 
enter a ddef command for the data set (with the job- 

Table 6. Shared Data Set Commands 



Table 6. Shared Data Set Commands ( continued ) 





BY OWNER 


BY SHARER 


PERMIT 


Must be issued prior 
to the SHARE com- 
mand by the sharers. 


Not allowed. A user 
cannot permit access 
to a data set that he 
does not own. 


SHARE 


Not allowed. 


Must be issued prior 
to any other refer- 
ences to the data sets. 
Once issued, the 
sharer may access 
the data set until he 
issues an ERASE or 
DELETE. The 
SHARE command 
places an entry in 
the sharer's catalog, 
so that a further 
CATALOG com- 
mand is not neces- 
sary. 


ERASE 


The owner can only 
erase a member ( ob- 
ject module ) from 
his job library or 
erase the entire li- 
brary when no shar- 
er is accessing that 
member at the time 
the ERASE com- 
mand is issued. If 
he erases the job 
library, the entry in 
the sharer's catalog 
is not removed. The 
sharers must issue a 
DELETE command 
to remove the entry 
from their own cata- 
log. 


A sharer can erase 
only if he has been 
granted unlimited 
access. If he then 
erases an object- 
module, neither the 
sharer's or owner's 
catalog is affected. 
If he erases the en- 
tire job library, both 
his catalog entry and 
the owner's are re- 
moved. 


DELETE 


The owner can delete 
a library or group of 
libraries from his cat- 
alog. An object mod- 
ule alone cannot be 
deleted. 

When the owner de- 
letes a shared job li- 
brary the sharer*s 
catalog entry is not 
removed. 


A sharer can delete 
his catalog entry for 
a job library without 
affecting the owner's 
catalog. The sharer 
must reissue a 
SHARE command if 
he again wants to re- 
fer to the data set 
that has been de- 
leted. 





BY OW^NER 


BY SHARER 


CATALOG 


The owner can cata- 
log a fully qualified 
data set name. If that 
name is a component 
of a partially quali- 
fied name that the 
owner has permitted 
to be shared, all 
sharers have immedi- 
ate access to the 
newly cataloged data 
set. 

If an owner changes 
the name of a single 
data set to which he 
permitted access us- 
ing a fully qualified 
name, each sharer 
must delete his cata- 
log entry and reissue 
the SHARE com- 
mand with the own- 
er's new name. 


A sharer that has 
been granted un- 
limited access can 
change or add en- 
tries to the owner's 
catalog. If he is per- 
mitted to share a 
group of data sets, he 
can catalog a new 
data set into the 
group, but he must 
include as part of the 
name the partially 
qualified name that 
he used in the 
SHARE command. 
If he changes the 
name of one of the 
data sets in the 
group, the new name 
must still contain the 
partially qualified 
name. 

A sharer who has 
been granted unli- 
mited access to an 
individual data set 
can never change 
the data set name. 



LIB option) in each task where he w^ants to include 
the library in his program library list. 

Groups of fob libraries wdth names having common 
liigher-order components can be specified by using 
partially qualified names when the permit is issued. 
For example, an ow^ner of two job libraries named 
TRACK. SUB 1 and TRACK.SUB2 cau allow sharing of both 
libraries by using the partially qualified name track 
in the permit command. In this case, the sharer mtist 
also use the partially qualified name (as the dsnameo 
parameter) in the share command, even though he 
wants to access only one of the job libraries. 

Table 6 lists the commands applicable to shared 
data sets and the effect of the command on the user's 
catalog. 

Recovering from Errors When DynamkaUy 
Loading 

The dynamic loader takes all of the external references 
in a module that is explicitly loaded or run and re- 
solves them by searching the program library list. 
While the loader is linking the object modules into 
the users virtual storage, diagnostics may be issued 
indicating any of several error conditions that can 
affect the eventual execution of that program. 

• Name to be loaded or run not found in library — 
Either the user has specified the wrong name in the 
LOAD or CALL commaud or the job library containing 
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the object module has not been defined in the task 
and, therefore, is not in the program hbrary hst. In 
the latter case, the conversational user can merely 
enter the ddef defining the job library and reissue 

the command. 

® rnr(\sol\e(l references — If an object module refers 
to a Fuxc'i"[()x or si^iuioirixi: that eaimot be located 
in any of the Hhrarics in [hv program library list:, a 
diagnostic is issued specifying the name that was 
used in the- rcfercnct\ Further linking of otlua- object 
modules is net susperded, howe\'er, so that tlu^ 
main program and i^sossibly other subprograms have 
been placed in thi^ user's ^^irtual storau;c\ li thc^ (a'ror 
0(.'curs in a iu;\ command, excxaition of thc^ pr(\gram 
is not initiated. 

If tlic list']- wants to (^xc-ciitc his program regard- 
less ot tlic^ error, lu^ cnn reissue the call command, 
lie must, ]K)W(^\-er, rejic^at iIk^ name of the module^ 
specifii^d in th<" original call command. This is nec- 
essary to dc^fine tliC point at which (\x(^cution is to 
b(/ initiated. 

If th(- \rscr anticipates that an obj(^ct module will 
have urn'esoK'ed referc^nces. lie should first issu(^ a 
LOAD command naming tlu^ module, followed by 
a c.w.L command with the siunc^ operand. This pro- 
cedure is rece>mmerjd("d for a nonconversational 
task, sir^ce the user can b(^ assured that execution 
^\'ill b(^ irn'tiatcxl rt\gardless of um-esoK't^I references. 

If the user does not want to call, thc^ vca'sion of 
the proizram that lias bcH'ii put into lu's storage, he 
must issue- an i/xloau command. If he wants, he can 
then enter a ddef defining a job library that w^as 
missing in the first load attempt. A load or call is- 
sued at this point causes the entire linking proee- 
diu'c to be redone. 

• Duplicate entry points — This condition can only 
occur when two or more object modules are being 
linked from difl^erent libraries. For example, a user 
might LOAD a main program from a library whicli 
calls a subroutine on another lilirary. If in this ease, 
the subroutine had an entry statement w^hich dupli- 
cated the main pi"Ogram name or an entry in the 
main program, a diagnostic would be issued indi- 
cating the error and the duplicated entry point 
name. The second entry point is disregarded by thc^ 
loader, so that as the loading process continues all 
references to that entry point are resolved by the 
first definition — in this case, the definition in thc^ 
main program rather than the subprogram. Subse- 
r|uent execution of the program could give erroneous 
results if the references were incorrectly resolved. 
The user should take some corrective measures be- 
fore attempting to load or call again. (A possible 



corr( ction might l)e to change the emry name by 
linkage-editing the ()l)jcct modules onto another job 
librar\'. To a\'oid the possilality of such duplications 
\v]\vu working u'ith a nev^ libi'ary, the pod? com- 
ma!id can be- usc^d to list the directory of tlie library. 
Tlie user can then circumvent thc^ prolilem by setting 
up an ap])ropriatc^ ])rogram library list before he at- 
tem|)ls to load In's program. 

Shared Code (PUBLIC) Considerations 

11;e s)'stem rc^cognizes a conti'ol s</ction as being either 
]iri\'atc or sharable. Normally, both the psect and 
tht^ csi ci of tlu^ out[)ut m()dul(> are marked by the 
compiler as prixate. ]Io\N^e\er, if the public option is 
seU'c t(M:l in tlie fix paramt^t^a's, the csect is marked 
as pul)he. If the library containing such a module is 
a sliared data set (i.e., Fl^H^F^r and share commands 
ha\ (' been issued ). the csi;ct is considered sharable. 

F.acb task is allocatiHl its own copy of a private 
csEcr; how e\ er, allocation of public csects occurs in 
sucli a v^a\^ as to makc^ the same physical copy of the 
csf:ct axailabk^ to all tasks which have allocated the 
(si:ci to their r(^specti\'e virtual storages. 

Sharing object code enhances the efficiency of the 
sxstem. Paging is reductnl since only one copy need 
be in main storage^ or on the paging device; in addi- 
tion, shared I'ou tines can be executed simultaneousK 
by mon^ than one cpu. 

Any user-written Foin han program can be made 
sharabk- bv specifying tlu^ furlic option in the ftn 
])aramoters. 

Prior to compiling the module, a ddef must be is- 
sued defining the job library w^here the object module 
is to be stored. Once tlie module is compiled, the 
user must grant access to th(^. fob library by issuing a 
PERMIT. This, of course, is not necessary if the object 
modide is stored on a job library previously bcang 
shared. 

Eacli iFser who has been pc^rmitted access must thcai 
issue a share command, to make the appropriate 
entry in his catalog for the library. Again, this is not 
necessary if the user is already sharing the data set. 
Eacli timc^ the sharer wants to use the shared pro- 
gram, he must issue a ddef for the job library prior 
to loading the object module. The object code is only 
truly shared (only one copy in main storage) when 
eacli user loads the public control section from the 
sauK^ shared jol) library. A sharer who linkage-edits a 
public control section onto another library receives a 
private copy each time the object module is loaded 
from til at library. 

The owner of a data set may perxiit any level of 
access he w'ants regardless of the access designator 
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in the owner catalog. For example, if the owner cata- 
log is marked *Vead only," the owner may not w^rite 
into his own data set, but he may PEEivfiT a higher 
level access (read /write or unlimited) to a sharing 
user. Because of this flexibility, the data set owner 
should be very cautious with critical data sets that he 
has entered into the system. 

Note: A program requiring more the 256 shared pages 
of storage cannot be loaded in public storage. The 
program will instead be loaded on private pages, and 
each user sharing it will receive a private copy. 

System Naming Rules 

User-Assigned Names 

The following names resulting in external symbols are 
supplied by the user in his Fortran source program 
or during compilation: 

• Module name (required) 

• SUBROUTINE Subprogram name 

• FUNCTION subprogram name 

• ENTRY names in subprograms (optional) 

• Names of labeled comaion 

Names resulting in external symbols that are as- 
signed in any single compilation must be distinct from 
each other. In addition, since the system does not al- 
low any one library to contain more than one defini- 
tion of a particular external symbol, each name (ex- 
cept names of common blocks) must be distinct from 
any other symbol contained on the library that is 
going to receive the object module. It is valid to have 
the same names on different libraries. Since a named 
or blank coma eon is not listed in the directory of the 
library as an external symbol associated with this 
module, the name of the common area does not have 
the preceding restriction. Also, since this name is not 
listed in the directory, it cannot be explicitly referred 
to by name (i.e., it cannot be loaded by its common 
name ) . 

The POD? command can be used to list external sym- 
bols in a library, thus assisting the user in avoiding 
duplication. 

Reserved Nomes 

External Symbols 

The user can never assign an external name beginning 
with the characters sys. Names beginning with these 
letters are reserved for certain system programs. Any 
module stored on the user library or a job library start- 
ing WTth these symbols can never be retrieved by that 
name for execution, since resolution of sys symbols for 
loading and running is always attempted from the 



system library. In addition, a diagnostic is issued if a 
module loaded by another name contains an external 
symbol beginning v.Tth sys. 

The user should be careful to avoid accidentally 
duplicating the names of iBM-supplied subprograms. 
Gc^n orally, he should avoid the use of all external 
symbols starting with the characters chc or any for- 
TRAN-suppIied subprogram entry point name (i.e., sin, 
COS, etc.) unless he specifically wants to substitute for 
such a subprogram one of his own. 

Reserved Names Associated with Data Sets 

The following list contains the reserved names that 
are assigned lO system functions: 

RESERVED DDNAMES RESERVED DSNAMES 

syslib userlib 

sysulib syslib 

sysin 

SYSOUT 
PCSOUT 

Compiler-Assigned Names 

For each Fortran program compiled, the compiler 
makes the following name assignments resulting in 
external symbols : 

• CSECT name — The module name (truncated to six 
characters if greater than six characters) is suffixed 
with #C to form the cseci name. 

• PSECT name — The module name (truncated to six 
characters if greater than six characters) is suffixed 
with #P to form the psecf name. 

Note: Since a rlock data program has neitht^r exe- 
cutable instructions nor program variables, a csect or 
psect name is not assigned. 

It is the user's responsibility to ensure that the first 
six characters of the module name are unique from 
others on the library receiving the object module. 
Since characters followTng the first six are trimcated 
to form the csect and psect names, Fortran user may 
want to follow^ the practice of limiting the module 
names of compiled programs to six characters. 

In addition to the csect and psect names, the fol- 
lowing names are assigned to the compiler output 
data sets: 

souRCE.module — is the data set name assigned to the 
line data set of source statements constructed dur- 
ing the compilation. For example, a source pro- 
gram with module name cowboy will be assigned 
the data set name source. cowboy. If the input to 
the compilations was from a prestored data set, 
then the user must assign the name souRCE.mod- 
ule to the data set prior to the ftn command. 
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LiCT.module — is the data set name assigned to the 
data set created for all listings optionally selected 
by the user. Note that this is the index name of 
a generation data group. 

fxecuflfig Commands from Within a FORTRAN Program 

You can execute a command from within a Fortran 
program by calling module cgcdb at entry point 
SYSOBF. (cGCDB is a nouprivileged module residing in 

SYSLIB. ) 

I Code the caul statement with these three arguments : 
First argument: The command length. (The number 
of characters in the command, not including the 
scratch byte in the second argument. Count dou- 
ble apostrophes — like those in the example below 
— as one character. 

Second argument: The command itself. Place this 
argument in single apostrophes. The first charac- 
ter of this argument must be a scratch byte that 
should not be counted in the command length. 

I Third argument: The name of the area in your pro- 
gram where you want the return code placed. 

For example: 

I CALL SYSOBF ( 26/_JDISPLAY*'aT STATEMENT 500'",rac) 

In this example, an underscore is used as the 
scratch byte. 

MiscellaneQus Programming Considerafmns 

Floating-Point Computations 

It must be kept in mind that, unlike integer arithmetic, 
floating-point computations (types real and complex) 
are not in general exact, due to roundoff, which may 
cause the low-order bits of a result to be different from 
the expected value. This consideration is especially 
important when writing Fortran relations or arith- 
metic EPS; exact equality of two floating-point quan- 
tities which are the results of computation is not to be 
expected. For example, consider: 

Y = o.i*x 

IF (lO.O*Y-x) 1,2,3 

The zero branch to statement number 2 will probably 
never be taken, since roundoff in the two multiplica- 
tions, and the fact that 0.1 cannot be represented ex- 
actly in a binary computer, will cause at least the 
low-order bit of 10.0* Y to be different from that of 
X, so the subtraction does not give a true zero. 

Object Program Interrupt Provisions 

This section contains descriptions of the procedures 
followed when the user's program is temporarily in- 



terrupted due to certain types of interruptions. An 
interruption is a computer-originated break in the flow 
of processing. Program interruptions are those result- 
ing from improper specification or use of instructions 
and data. The term "exception" is used to refer to 
these types of interruptions.^ Six such exceptions occur 
frequently enough during normal Fortran program- 
ming to warrant special treatment. These are: 

1. Fixed-point overflow exception 

2. Significance exception 

3. Exponent-overflow exception 

4. Exponent-underflow exception 

5. Floating-point divide exception 

6. Specification exception 

The procedure for handling the above exceptions 
is as follows. The compiler generates code at the be- 
ginning of all main programs that calls an interruption- 
handling module.^ In this module the following opera- 
tions are performed: 

1. Initialization is performed such that the fixed-point 
overflow and significance exceptions wfll be ig- 
nored. 

2. Initialization is performed such that a control will 
be passed to an entry in an interruption-handling 
module if any of the following four exceptions 
occur: 

a. Exponent overflow 

b. Exponent underflow 

c. Floating-point divide 

d. Specification 

At the first three of these entries, flags are set for 
later interrogation by programs called as a result 
of the call overfl (if exponent overflow or under- 
flow occurred) and call dvchk (if divide check oc- 
curred ) statements. The contents of registers fol- 
lowing an overflow or underflow is: 

Exponent Overflow: The sign of the result is un- 
predictable and the result characteristic is set to 
127. In short precision, the high-order 24 bits of 
the fraction are set to one, leaving the low-order 
32 bits unchanged. In long precision, all 56 bits of 
the fraction are set to one. 

Exponent Underflow: The sign, characteristic and 
fraction of the result are set to zero, yielding a true- 
zero result. (In short precision, the contents of the 
low-order 32 bit positions of the fraction remain un- 
changed, ) 



^For more detailed inforniation, see IBM System/360 Principles of Oper- 
ation, Form A22-6821. 

^For a more detailed description, see FORTRAN IV Lihrary Subprograms, 
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A specification exception will occur when a variable 
is not on a proper word boundary. This condition may 
exist in a Fortran program by forcing such misalign- 
ment through the use of a common and/or equiva- 
lence statement. The compiler issues a warning diag- 
nostic if the user has forced such a misalignment, but 
such a misalignment does not prevent him from exe- 
cuting the program. An installation option specifies 
that one of two courses of action is to be taken if a 
specification interruption occurs: 

1. Terminate the task. 

2. Transfer control to a program that will perform the 
desired operation, using instructions that will not 
cause an exception due to the incorrect boundary 
alignment, followed by continuation of the user s 
program. This procedure is extremely inefficient, 
and thus should be employed as little as possible. 



STOP/ PAUSE/ RETURN Differences 

Table 7 summarizes the use of the Fortran stop, 
PAUSE, and return statements in both conversational 
and nonconversational mode. 



Link-Editing FORTRAN Programs 

The standard entry point assigned to a link-edited 
module is the first byte in the first control section that 
is linkage-edited if no main program is included. If a 
main program is included, the standard entry point 
is the first byte in the first control section of the main 
program. This procedure imposes the following rules 
when linkage-editing Fortran modules: 

1. If a task requires a block data subprogram, this 
subprogram must be included prior to any module 
containing a cx>mmon block for the same areas de- 
fined in the block data subprogram. 

2. A linkage-edited module does not retain the module 
names of those modules included in the linkage 
editing. Thus the module name in a call command 
must be the name assigned to the linkage-edited 



Table 7. STOP/PAUSE/RETURN Differences 





EFFECT IN 


EFFECT IN 


FORTRAN 


CONVERSATIONAL 


NONCONVERSATIONAL 


STATEMENT 


MODE 


MODE 


PAUSE n or 


1. Prints the message 


PAUSE n or message' 


PAUSE 


"PAUSE n" or 


prints on SYSOUT 


^message' 


"PAUSE message" 


data set; execution 




at the users termi- 


continues with the 




nal. 


statement following 
the PAUSE. 




2. Prints an under- 






score at terminal 






requesting a com- 






mand. 




PAUSE n or 


3. Program may be 


PAUSE n or message' 


PAUSE 


continued at the 


prints on SYSOUT 


message' 


statement follow- 


data set; execution 


(cont) 


ing the PAUSE by 


continues with the 




entering the RUN 


statement following 




command. 


the PAUSE. 


STOP n or 


1. Prints "STOP n" 


1. Prints STOP n on 


RETURN 


at the user's termi- 


the SYSOUT data 


( in main 


nal. 


set. 


program ) 


2. Prints an under- 


2. Reads the next 




score at terminal 


command from the 




requesting a com- 


SYSIN data set. 




mand. 





module; execution will begin at the standard entry 
point of the module. 

Use of CALL Command and CALL Statoment with 
FORTRAN Subprogram Module Names 

It is not good practice to use the call command to 
run FORTRAN subprograms or linkage-edited subpro- 
grams without a main program. If this is attempted, 
some interruption-handling mechanisms will be miss- 
ing, and the subprogram's execution may be termi- 
nated abnormally. A Fortran program must not 
attempt to call a subprogram by its module name. 

Initial Content of FORTRAN Variables 

FORTRAN programmers should never assume that the 
value of any variable is known unless the variable 
has been set by an assignment statement or by a Type 
or DATA statement in which initial values are specified. 
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A FORTRAN program can call assembler-language sub- 
programs; similarly, an assembler language program 
can call a fortrax subprogram. This appendix dis- 
cusses both types of calls. The reader is also referred 
to Assembler Leingtiage, GC28-2000; Assembler User 
Macro Instructions, GC28-2004; and IBM FORTRAN 
IV Lihrartj Suhprografii, GC28-2026, The reader of this 
appendix must be familiar with the assembler lan- 
guage. 

This appendix is divided into the following sections: 

1. FORTRAN Object Program Structure: general 
characteristics of FORXRAx-compiled object pro- 
grams. 

2. Stibprogram References: register use, save areas, 
and related information. 

3. Types of FORTRAN Calls: a general description of 
the manner in which compiler programs calhb)-'- 
name, call-by-value, and pass subprogram names 
in a parameter list. 

4. Linkage hettceen FORTPiAN and Assembler Lan- 
guage Programs: Detailed examples for fortrax 
programs calling assembler language subprograms 
and vice versa. 

FORTRAN Ob'iecf Program Strmfme 

There are certain conditions of w^iich assembler-lan- 
guage users writing code to link to or from Fortran 
object code should be aware: 

1. fortrax object code is reenterable. 

2. A single csect and an associated psect are gener- 
ated for each compiled program not containing 

COMMON, 

3. Standard type-I linkages (described below) are 
compiled for subprogram references. 

4. FORTRAN main programs, but not subprograms, issue 
a call on the chcbdi entry to module chcbd prior to 
any other operations. This call causes the following 
(see Appendix C for a more complete discussion) : 

a. Bits are set in the psw such that fixed-point over- 
flow^ and significance exceptions are ignored. 

b. Initialization is performed such that four types 
of exceptions cause control to be passed to the 
system modules chcbd or chcbe, at which point 
a flag is set for later interrogation. The four ex- 
ceptions and the Fortran statements that test 
the flag are: 



Exponent-overflow 
Exponent-imderflow 



CALL OVERFL 
CALL OVERFL 



Floating-point divide CALL DVCHK 

Specification See below 

A sj)ecification exception occurs where a variable 
is not on a prope^r word boundary. This condition 

can occur in a Fortran program when a mis- 
alignment is forced througli the use of the co^f- 
MON and /or equivalence statements. The com- 
piler issues a warning diagnostic if the user has 
caused such a misalignment, but program execu- 
tion W'ill be permitted. When a specification 
exception occurs, an entry in Fortran iv~supplied 
subprogram chcbe is entered. According to the 
option chosen by tlie installation when the sys- 
tem w^as generated, chcbe either terminates the 
program or causes the requested operation to be 
performed as if no exception has occurred. 

c. Clears any pointers to entries in the DCB table. 

ii ail assembler -languaiiie main program calls a 
i'oinuAx subprogram and aritlnnetic overflow and 
l)()iiTidar\' alignment i^rol)lems are to be handled, 
ilie user must either call cncBni as a part of his 
mitiali/ation procedures in his main program or 
])]'o\'ide asscmblei-language coding to accomplish 
this end. cmicbdi issvies sir, mn and spec macro in- 
slrnctions with tlie default }:)riority. 



Subprograrrt References 

This section gi\c\s gcmeral information concerning sub- 
program ref(nxnic(\s l)y l)Oth Fortran and assembler- 
laiigMagc programs 1Th^ lollo\\'mg section gi\'es specif- 
ic e\am})l(\s h)r bolli t}'pes ol relr-i'cnces. 

TIk^ FORTRAN progFiun can reler to a subprogram in 
two VcUs: by a caei, stateuK^nt or by a function refer- 
ence within an aritlnnetic expressiotE I"or example, 
tlit^ statements 

GALE SETBr(x, Y, z) 

i=j+k + func(l, m, n) 

refer to a subroutine subprogram subr and a function 
subprogram func, respectively. 

For every subprogram refercmce, tlie compiler gen- 
erates a type-I linkage. Similarly, Fortran subpro- 
grams expect to be called by a type-I linkage. 

Associated with type-I linkage conventions are 
three areas of conc(T*n; these are: 

1. Register usage 

2. Parameter lists 

3. Save areas 
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Proper l^egister Usage 

Tss/360 has assigned roles to certain registers used in 
generating a linkage. The function of each linkage 
register is illustrated in Table 8. Note that registers 2 
through 12 are not assigned and, thus, are always 
available to the user for other purposes. 

It is the responsibility of [he called module to main- 
tain the integrity of general registers 2 through 12 so 
that their contents are the same at exit as they were 
at entry to the called program. It is the calling pro- 
gram's responsibility to maintain the floating-point 
registers and program mask around a call. General 
registers 0, 1, and 13 through 15 must conform to the 
indicated conventions; and 1 may be destroyed by 
the called module. 

Table 8. Linkage Registers 

GENERAL 

REGISTER USAGE 



Integer Result Register ( FORTRAIM-siippIied sub- 
programs). 

1 Parameter List Register — contains the acklress of a 
list of pointers to input parameters. 

13 Save Area Register — contains the address of the 
calling module's save area. 

14 Return Register — contains address in calling 
module at which execution resumes upon return. 

15 Entry Point Register — contains address of the 
entry point in the called module; also Return 
Code Register — contains return code set by called 

module. 

By convention, general register C is used by a Fortran 
FUNCTION statement subprogram to return the resultant 
value computed in the subprogram when the resultant 
value is an integer. When the resultant value is a 
floating-point number, floating-point register is used. 
Complex numbers are returned in floating-point regis- 
ters (real part) and 2 (imaginary part). 

Reserving a Parameter Area 

If a called module requires input parameters, the call- 
ing module must supply the called module with the 
location of a parameter list in general register 1. Each 
entry in the parameter list must be on a fullword 
boundary and represents the address of a parameter 
being passed to the called module. If the parameter 
list is variable in length, the length is specified as a 
count of the number of addresses that compose the 
list. This count is located one word before the first 
word in the parameter list. Regardless of w^hether the 
parameter list is of fixed or variable length, the param- 
eter list register points to the first w^ord of the param- 
eter list. The CALL macro instruction can be used to 
generate the parameter list, as well as to link to the 
called module. The Fortran call statement does not 
generate a variable length parameter list count. 



Reserving a Save Area 

It is the responsibility of the calling module to supply 
a 19- word area to be used by the called module. Fig- 
ure 18 shows the layout of the save area and briefly 
describes the information saved in the area by the 
calling and called module. Of particular interest in 
this save area (for trace purposes) are the following 
two words: 

AVord 2 — The "back^vard pointer." This word always 
points to the save area of the module that called 
the module whose save area is being inspected. 
Word 3 — The "forward pointer." This word contains 
the address of the save area of the module last 
called !)y the program whose save area is being 
inspected. The low-order bit of this word is set to 
zero as the called program is entered and set to 1 
upon exit if the T option in the return macro in- 
struction is used. (The Fortran return statement 
also causes this bit to be set). This bit is useful 
in determining the flow of control during pro- 
gram execution. 



SAREA -> 




Contains the length of the save area in bytes, a 


(word!) 
SAREA + 4 -> 


minrmum of 76. 


The address of the calling module's save area. 


(word 2) 


This field is set by the called module in its own 


SAREA + 8 -> 


save area. 


The address of the next save area; that is, the 


(word 3) 


save area of the called module. This field is set 


SAREA 4- 12-> 


by the called module. 


The contents of register 14 containing the ad- 


(word 4) 


dress to which return from the called module is 




made. This field is set by the called module in the 


SAREA + 16 -> 


calling module's save area. 


The contents of register 15, containing the ad- 


(word 5) 


dress to which entry into the called module is 




made. This field is set by the called module in 


SAREA + 20 -» 


the calling module's save area. 


The contents of register 0. Value in register set 


(word 6) 
SAREA -f- 24 -> 


by calling module and saved by called module. 


The contents of register 1. 


(word 7) 
SAREA -1- 28 -> 




The contents of register 2. 


(word 8) 

SAREA + 32 -> 




The contents of register 3. 


(word 9) 




Eight words containing the contents of registers 


SAREA + 68 -> 


4-n. 


The contents of register 12. 


(word 18) 
SAREA + 72 -^ 




The address of the PSECT of the called module. 


(word 19) 


This field must be set by the calling module, by 




storing the R-value of the called entry point in it. 





Figure 18. Save Area Format and Content 

Variable^Length Parameter Lists 

FORTBAN will uot provide a tss/360 variable-length 
parameter list (except to the dump/pdump programs), 
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nor can any tss/ aeo-supplied subprograms except dump 
and PDUMP process a variable parameter list passed 
to them. 



Types of FORTRAN Calls 

A FORTRAN program can call a subprogram with two 
basic types of parameters. 

The first type is one in which a parameter is the 
name of a variable, the value of which is to be op- 
erated on in assignment statements, transfer of control 
statements, etc. (This is the usual use of parameters 
in a subprogram reference.) An example of this use 
follows : 

C PROGRAM MAIN 
CALL SUBR(A, B) 



SUBROUTINE SUBR(X, Y) 



CALL SUBR(A, FUNC) 



END 

SUBROUTINE SUBR(X, BETA) 



Y=:BETA(U, V, W) 



RETURN 
END 

In this example, program main does not pass the lo- 
cation of FUNC, as FUNC is not a variable name but is 
the name of a function type subprogram. In this case, 
MAIN passes the location of a parameter list, contain- 
ing the V and R-values for func ( rather than the loca- 
tion of a variable, as is the normal case), and subr 
uses this information when referring to the function 
that SUBR knows as beta. 



END 

The call of subr in program main above results in 
MAIN passing to subr in a parameter list the addresses 
of A and B; both A and B, in this example, lie within 
MAIN. SUBR references to its dummy arguments X and 
Y will result in references to A and B within main, as 
SUBR uses the parameter list passed at the call to ob- 
tain the location of X and Y. 

The above type of calls is referred to as ''call-by- 
name." Some compilers also have implemented "call- 
by-value." Although the tss/360 compiler treats this 
type of call identically with a call-by-name, a brief 
discussion of call-by-value is given here to note the 
differences. 

In a call-by-value linkage, references to X and Y are 
treated differently. Rather than referring to the values 
of X and Y stored in main ( and known to main as A 
and B ) , a call-by-value causes subr to obtain the cur- 
rent values of A and B from main and store them 
within SUBR. All references to X and Y in subr will 
then refer to the locally stored (i.e., within subr) 
values, rather than the values in main. The values are 
identical, of course, so the end result is the same. 

The second basic type of call is one in which the 
passed parameter is the name of a subprogram. An 
example of such a linkage is: 
C PROGRAM MAIN 



EXTERNAL FUNC 



Linkage Between FORTRAN and Assembler 
Language Programs 

This section describes the linkage between calling and 
called programs for calls in which the name of a vari- 
able and the name of a subprogram are arguments of 
the call. 

CML Where the Argument ?s a Variable Mame 

In the following example, showing the FORTRAN-as- 
sembler language interface, a Fortran main program 
MAIN calls an assembler-language subroutine, asubr, 
which calls a Fortran subroutine named fsubr. 

The source statements for the Fortran main pro- 
gram are given below, w^here the leftmost numbers are 
the system-assigned line numbers, used for reference. 

OOOOIOOC MAIN PROGRAM FOR INTERFACE EXAMPLE 



0000700 CALL ASUBR (A ,B) 
0000800 STOP 'END OF EXAMPLE' 
0000900 END 

The CALL statement at line 700 generates object 
code equivalent to the following: 



LA 


13, MAIN #P 


Caller's PSECT and save 
area base register 


LA 


15, ASUBVR 


V-and R-vakies for 
ASUBR 


LA 


LPLIST 


Parameter list 


L 


14,4(15) 


R-value 


ST 


14,72(13) 


To PSECT 19th word 


L 


15,0(15) 


V-value for ASUBR 


BASR 


14,15 


Call ASUBR 
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MAIN'#P 


PSECT 

DC 

DC 


F76' 
18F'0' 


Caller's PSECT 
Save area 




ASUBVR 


DC 


V(ASUBR) 


V-ancl R-valiies for 


ealled 




DC 


R(ASUBR) 


program 




PLIST 


DC 
DC 


A(A) 
A(B) 


Parameter list 





FSUBRVR ADCON IMPLICIT,EP=FSUBR 
FS AB DS F Address of A ( in MAIN ) 

DS F Address of B ( in MAIN ) 

ASUBRC CSECT 



LM 
STM 



6,7,0(1) 
6, 7, FSAB 



Address of A, B 
To parameter list 



END 



The purpose of subroutine asubr is to exchange the 
values of A and B. 



ASUBRP PSECT 
ENTRY 

DC 
DC 

ASUBRC CSECT 
USING 

ASUBR SAVE 

L 
ST 

ST 



LR 



ASUBR 

F76' 

ISF'O' 

ASUBR, 15 
(14,12) 

14,72(13) 

14,8(13) 

13,4(14) 



13, 14 



Re(|iiired for R-vakie 

linking 

Save area 



Save registers in caller's 

save area 

Get R-valne from caller's 

PSECT 

Save in caller's PSECT 

for later tracing of calls, 

if desired 

Save address of caller's 

save area (PSECT) in 

ASUBR save area 

(PSECT) for later 

tracing of calls 

13 now lias address of 

PSECT 



USING 


ASUBRP, 13 




LR 


12, 15 




DROP 


15 


Use register 12 as base 
register, as CALL below 
destroys register 15 


USING 


ASUBR, 12 




LM 


6,7,0(1) 


Addresses of A and B 


L 


2,0(6) 


Value of A 


L 


3,0(7) 


Value of B 


ST 


2, 0(7) 


A stored in B 


ST 


3,0(6) 


B stored in A 


(Call 






FSUBR, 






shown 






later) 






L 


13,4(13) 


Restore 13 to caller's 
PSECT 


RETURN 


(14,12) 


Restore registers and 
return 


END 







LA 15, FSUBRVR 

CALL (15), MF=: ( E, FSAB) 

Many forms of the call macro instruction can be 
used. In the form of the call macro instruction used 
above, the generated code is: 



LA 


1, FSAB 


Point to parameter list 


L 


14,16(15) 


R-value 


ST 


14,72(13) 


To save area 


L 


15, 12(15) 


V-value 


BASR 


14, 15 


CALL 



The call by assembler-language program asubr on 
FORTRAN subroutine fsubr is described next. 
ASUBRP PSECT 



Tlie above call of the Fortran subroutine fsubr 
uses a V-and~R-vaIue pair in the linkage. This type of 
linkage is required, as fsubr (like all FORTRAN-com- 
piled programs) is reenterable; thus, the called pro- 
gram must include a psect. Note also that a program 
calling a Fortran subprogram must provide the ad- 
dress of a 19-word save area in register 13, and the 
FORTRAN subprogram called modifies the contents of 
this save area by storing registers in it. Generally, the 
first 19 words of the caller's psect are reserved for this 
save area, but it is legitimate to point to a save area 
elsewhere in the program. 



CALL Linkage Where the Argument Is a 
Subprogram Name 

An example was given earlier of a main program pass- 
ing the name of a f miction func to subroutine subr. 
The FORTRAN statements w^ere: 

C PROGRAM MAIN 



EXTERNAL FUNC 

CALLSUBR (A, FUNC) 

END 

SUBROUTNIE SUBR (X, BETA) 
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:'=bf:ta (u, V, w) 



RETURN 
END 



Tlie code generated in main for this example is the 
equivalent of the following: 

( ProOTam MAIN CSECT) 



L 

LA 

CALL 
(Proc^ram KfAIN PSECT) 



SUBRVR ADCON 
PARAM DC 
DC 



15, SUBRVR 
1, FAR AM 
(15) 



IMPLIC1T,EP=:=SUBR 

A(A) 

A(VRPAm) 



VRPAIR 



DC 
DC 



V(FUNC) 
R(FUNC) 



When referring to fuxc (known to subr as function 

beta), sub|)rogram subr does not generate for beta, 
but uses the V~ and R-values passed in the parameter 
list 

Using Data in COMMON 

Both named and blank co:mmons in a fobthan iv pro- 
gram can be referred to by an assembler-language 
subprogram. To refer to named common, the V-type 
address constant 

name dc V( name of common) 

is used. 

A blank comimon may also be defined (by the com 
instruction) in an assembler-language program. After 
the first program containing a blank common is 
loaded, all blank com^ions in subsequently loaded 
programs are rejected; any references to the blank 
common are tied to the already loaded one, thus mak- 
ing data in the first blank common accessible to more 
than one program. 



Referring to Variables in an Array 

For an array, tlie address of tlie first variable in the 
array is placed in tlie |)in-ameter list. An array (for 
e.\ani|ik\ a thrcodiniensional array c( 3,2,2) ) appears 
in this iorrnat in main stoi'a%c: 



C(!,Li) <:(2, ij.) C{1, 1,1) 



C( 1,2,1) 



j______ 



13 



C(3.2, U C( 1,1,2) 



C(2,l,2) 



C(3, 1,2) 



C(L 



C(2,2,2) C(3,2,2) 



Table 9 slnnvs the gei^iera} subscript format for arrays 
of 1. 2, and 3 dimensions. 

Table 9. Diiiicnsion anci Snl)scri].it Format 



AURAY A 


SUBSCRIPT FORMAT 


A(D1) 

A(DI,D2) 

A(D1,D2, D3) 


A(S1) 

A(S1,S2) 

A(S1,S2,S3) 


Dl, D2, and D3 are inte^.^cr constants used in the 
DIMFXSION ^tatenxut. SI, S2, and S3 are subscripts 
usrci \\\{h siil)SCTipted \'ariah]es. 



The address of the first variable in the array is 
placed ill the list. To re trie; ve any other variables in 
the array, the displacement ot the variable (that is, 
tlie (H:slanct^ of a varirtblc^ from the first variable in the 
ari-ay ) nuist be calculated. The formulas for computing 
the displacement (disi^lc) of a variable for one-, two-, 
and ihrcc-dimeiisicnal arrays are 

DISPLC=:(S1-])*L 

DISFLC={S1-1)*L :-i S2-l)"DrL 

J3ISP1 .(:= (SI - 1) *I ,- - ; S2- 1. ) " Dl *^ [.+ ( S3-1 ) *D2*D1*'L 

where 

L is the length of each variable in the array. 

For example, the variable c( 2,1,2) in the main pro- 
gram, is to be moved to a location arvar in the 
subprogram. Using the formula for displacement of 
variables in a three-dimensional array, the displace- 
ment (disp) is calculated to be 28. The following in- 
structions can be used to move the variable: 

LA 6,8(13) 

LA 8, DISP 

L 9,0(6,8) 

ST 9, ARVAR 
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A|:>penciix E. Specif icafiori of Data Set Characteristics 



This appendix discusses eight topics associated with 
defining and processing data sets with Fortran ob- 
ject programs. The first of these, "Data Set Creation 
and Structure/' gives a description of the format, crea- 
tion, and structure of data sets written and read by 
FORTRAX-compiled modules. 

Next, the section "Operation on Data Sets," de- 
scribes techniques for: creating new data sets, print 
and punch output, processing data card input, and 
reading data sets created b}^ other tss/360 Fortran pro- 
grams or os/360 FORTRAN programs. Also included are 
discussions of: exception handling (i/o errors and 
end-of-data-set handling); use of rewtnd, endfile, and 
BACKSPACE statements; and execution i/o error mes- 
sages. 

The next section, "secure Requirements for Non- 
conversational Tasks," includes considerations in de- 
termining the number of private devices needed 
during processing of a nonconventional task. 

"Guide to ddef Commands" describes in detail how 
to write ddef commands for all allowable Fortran 
object-time processing. This section is divided into 
a description of the basic ddef command, which may 
satisfy all normal user requirements; the default of 
ddef commands, which discusses sysin/sysout i/o; 
and the full ddef command, descril)ing extended proc- 
essing facilities. 

The section "Sample ddef Commands" presents and 
explains a variety of ddef command uses. The final 
three sections of this appendix are "Error Messages 
for the ddef Command," "Data Definition Rules for 
Language Processing," and "Data Definition Rules for 
tss/3(>o Commands." 



Dafa Set Creation and Structure 

This section describes the format, creation, and struc- 
ture of data sets written and read by FORTRAN-com- 
piled modules. 

In creating and using data sets, the user is con- 
cerned with two things: the logical record format and 
the data set organization. A logical record is the unit 
of information processed by the user's program — that 
is, the specific number of contiguous bytes of informa- 
tion that is to be read or written by a Fortran pro- 
gram. TSs/360 recognizes three formats for logical 
records: 



1. Format F, for logical records of a fixed length. 

2. Format V, for logical records of varying length. 

3. Format U, for logical records of undefined format. 

4. Format D, for ascii tape records. 

Detailed descriptions of these three formats are given 
later in this section. 

The data set organizations are spoken of in terms of 
the TSs/360 access methods used to manipulate them; 
that is, the particular set of system routines that are 
used to transfer data records between virtual storage 
and a data set in external storage that is organized in 
a particular way. The tss/30() access methods are 
described below^ 

Access Methods 

Data set records are transferred to and from i/o 
de\ ices and virtual storage by system programs known 
as access methods. There are two primary access 
methods. 

1. Virtual Access Method (VAM): The access method 
used in tss/hgo unless the data sets must be inter- 
changed with programs running in the IBM Sys- 
tem 360 Operating System or the Model 44 Pro- 
gramming System, or the data set is to be written 
on magnetic tape. 

2. Basic Sequential Access Method (BSAM) and 
Queued Sequential Access Method (QSAM): Used 
to read and write records that can be read and writ- 
tc^n with programs running under control of the 
IBKI System/360 Operating System or the Model 
44 Programming System, or when the data set is to 
be written on magnetic tape. 

Tlie clioice of access metliods and record formats 
(see below) are originally determined by the param- 
eters in the ddef command. A later section of this 
appendix contains a complete discussion of how ddef 
commands are w^ritten. 

Virtual Access Method 

Users create, read, and process virtual access method 
(vam) data sets on the basis of logical records. The 
system, however, blocks these records by pages (4096 
bytes) and uses the page as the unit of transfer be- 
tween the direct-access device and the user's virtual 
storage. The system also ensures that only those pages 
of a data set that are actually required are resident in 
virtual storage. 



124 



Virtual storages data sets can be classified as: 

1. Virtual sequential (vs) 

2. Virtual index sequential (vi) 

3. Virtual partitioned (vp) 

VAM data sets must reside on direct-access volumes 
(not tape) that are sx>ecifically formatted for tss/36(). 
Labels and other related tables pertaining to the data 
set for VAM are not the same as those in an os/360- 
generated direct-access data set. Therefore, data sets 
written with va?vI cannot be read with a program run- 
ning under the IBM System 360 Operating System or 
the Model 44 Programimng System. 

For FORTRAN, format-U records in any vam data set 
are created as format~F wdth a record length of 4096 
bytes. 

Virtual Sequential (VS): In a virtual sequential (vs) 
data set, die order of the logical records is determined 
by the order in whicli they are created, vs permits 
logical records up to 1,048,576 bytes (256 pages) in 
length. 

Most FORTRAN programs read and wTite logical 
records using vs in format V. This access method, wdth 
this format, is sufficient to handle nearly every applica- 
tion, and only when records are specially formatted 
wdll the user have to use some other combination of 
access method and record format. 

Virtual Index Sequential (VI): Virtual index se- 
quential records are similar to^ virtual sequential rec- 
ords with the addition of an extra field called the key. 

In VI data sets, it is only possible to have format-V 
or -F records; format-U records are not permitted. 
Logical record length is limited to 4000 bytes; key 
length cannot exceed 255 bytes, but keys can be any- 
wdiere in the record. 

The records in the data set are ordered by ascend- 
ing sequence of the key field. A Fortran program can 
read any vi data set sequentially and records are pre- 
sented in ascending key order. Fortran cannot read vi 
records by key — that is, nonsequentially. When read- 
ing a VI record, the user must account for the key in 
his FORMAT statement since the key is considered part 
of the record and must be maintained by the user. An 
assembler-language subprogram may be used to read 
records nonsequentially. Writing a vi data set with a 
FORTRAN program can be done sequentially; however, 
the key field in the record is checked and used by data 
management. Therefore, the user must lay out the 
logical records so that an ascending key, according 
to the System/360 8-bit code, appears in the same 
place on every record. For example, the following 
FORTRAN statements could be used to write a vi data 
set which contains a 6-character ascending key at the 
beginning of each logical record. 



DIMENSION DATA (40) 
KEY = 



10 KEY = KEY + 1 

WRITE (7, 200) KEY, DATA 
200 FORMAT ( 16, 40F5. 1 ) 



GO TO 10 

To summarize, since Tss/neo fortran does not have 
random access capability, vi records are of limited use 
to the FORTRAN uscr. VI would be used primarily to 
construct records that are to be read by non-FORTRAN 
programs, and in waiting these records it is the respon- 
sibility of the user to supply the key in the record. 

Virtual Partitioned (VP): Partitioned data sets may 
contain both vi or vs data set organization. Logical 
records are grouped into named subdivisions so that 
processing can take place on any one of them, called a 
member of the partitioned data set. Each member can 
be treated as an individual data set. 

To create and operate on a member of a partitioned 
data set, the user wT'ites a ddef command to ( 1 ) in- 
dicate a DSORG of either vsp or viP in the subfield of 
the DCB parameter and (2) append a member name 
(in parentheses) to the dsname. Only one ddef com- 
mand can be issued for the partitioned data set at one 
time; hence, only one member may be processed at 
any one time. 

Physical Sequenflal (PS) 

Physical Sequential (ps) data sets are written by the 
basic se(|uential access method (bsam), and queued 
sequcmtial access method (qsam). However, this is 
normally done only to communicate with the IBM 
System /360 Operating System or the Model 44 Pro- 
gramming System, or if the data set is to be written 
on magnetic tape. 

bsam can support any of the record formats — F 
(blocked and unblocked), V (blocked and unblocked), 
U ( unblocked only ) , and D ( blocked and unblocked ) . 
If the user wants to process blocked records with 
BSAM, he must perform all deblocking first. If the 
user needs to process blocked records, Fortran i/o 
will automatically perform the deblocking function. 

QSAM, on the other hand, supports both blocked and 
unblocked records. In the case of blocked records, 
QSAM will automatically provide the deblocking func- 
tion of the user. 

PS data sets are built around physical blocks that 
contain one or more logical records in format F, V, or 
U. Format-U records are considered unblocked. 

PS data sets may be written either on magnetic tape 
or direct-access devices. To read a ps data set the user 
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must first censure that it is «ivailable to the system on 
the correct device and then indicate to the system, the 
data set's sxiecial characteristics. These two functions 
are performed fjy special parameters in the ddef com- 
mand. (These are described in a later section of this 
appendix. ) 

Dotci Set Records 

A logical record is a specified number of conligiioiis 
bytes of information that is to be read in or wiitten 
out by a program. 

1. Format F: If a data set is made up of records that 
are all of the same length, it m format F, for fixed 
length. There are no special restrictions on the con-- 
tents of a format F logical record; however, differ- 
ent access methods set h'mits on record size (see 
Figure 18). 

2. Formal V: If a data set is made up of records that 
are of varying lengtli. i: is Format \\ for variable 
length. Again, tlie chfi-er(Mit iiccess methods set 
limits on record size. 

3. Format U: A third class of record h format I.^ for 
undefined iengtli. For records on vs data sets, for- 
mat V records are alwa\'s coiisidered to be format 
F^ with a record length of 4096 b\1es or a multiple 
of 4096; for recoi'ds ori rs dalv. sets, the nn^'ord 
length is determined liy some fi'iysical boundary 
that is recognized b\' the device that reads the 
record. 

4. Format D: If a data set contains asch records, for- 
mat D must be specified. Format-D records are 
variable In length. 

The above considerations foi* using foreiat-F records 
witli FORTRAN programs do not appK' to unformatted 
READ or 1^'^TTE rccords. 



1 vs 
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FS 


Record 






1 
1 






Format 


j 400G 


Unblocked 


1 


iliocked 




F 1,048,576 


32760 


1 


32760 




V 1,048,572 


4000 


32756 




32756 




U 4096* 




32760 








D , 




32760 


1 


32760 


1 


*AI( U-format records are 


multiples of 


4096. 









figure 19. Maximmn Record LeiicfUis (Bytes) 

Varlable-Lengfh Format 

1. Record Lengths: vs format-V records can contair?. 
from 1 to 1,048,572 bytes of data, vi format-V rec- 
ords can contain from 1 to 3096 b}'tes of data, ps 
forma tA" records can contain from 1 to 32,752 i)\'tes 
of data. 

The record length is indicated at the start of t^ach 
record, ps records (blocked and imblocked) ha\'C a 
two-byte binary number follo\\'ed by two bytes 



r(\ser\^ed for system use. \i and vs Ijlocked records 
ha\'t'- a fonr4j}-'te binary nnmber. FG:iTR/!NAvritten 
prf)grams can rc;ad ps data sets and write them on 
vj o! vs and vice versa. 

2. li-adiii^ii and Writing: foktran i/o processes input 
a]vi output format-'\' records exactl\' as if they were 
format F (i.e., the recorddengtl! bytes are not trans- 
mitted into user storage nor do the_e need to be 
constrncled by the user l)efore issuii^g a write). No 
padding of output records ever tak'es place. All lui- 
formattcTl forti^an records are written as format V 
witli spanning control bits in either the first byte 
oi' a VI or vs record or the third byte ol a ps record; 
again this special b}'te is hanche^d by the system. 

Both lormat-V and -V rcanxls can occur in any of 
the different data set organizations, although they can- 
not be mixed in any one data set. Hie organization to 
be used for an output data se: is specified in the ddef 
command. The organization used for an input data 
set can be determined from tlic-' data set standard 
labels, from information m the system catalog, or 
from the ddef command. 

FORFRAx i/o always writes .iormat V records unless 
otherwise insti'ucted by the ddef command. 

The user's source program^ need ne\'er be concerned 
whether iormat~\' or -F records are being read or 
writtcaa since FoirfH,\x will canstruet the records 
properly and transmit them to the i/o device as m- 
structtxh The same is true for format-U records, but 
their use should be rc^stricfe-d to ts data sets, since vaixT 
gerui'ativs \TaA' large records for format IJ. 

Figures 20. 2L and 22 shov^ the various records for- 
mats under different data set organizations, 

fixed-Length format 

1. Record Lengths: vs i"ormat~F records can be any 
!(^ngth frorr> i tc> 1,048,576 bytes, vi format-F rec- 
ords can be any length trom 1 to 4,000 bytes, ps 
iormat~F records can he an\ kaigth from 1 to 32,760 
bytes. Unblocked records less than 13 bytes in 
length, are rejected if a i-eading error occurs (i.e., 
no recovery attempt is made). Therefore, unblocked 
records oi' less than ]3 bytes are not recommended. 
Blocked records are automatically at least 13 bytes 
long. 

2. Blo(d{hig fornjaf-F rrc(}rds: Any specification of 
blocJ: si'/e (in the noKr^ command) is ignored for 
bloeking of tortuat-l" records in VAXt data sets. The 
block si/.e of' format- F records in ps data sets must 
1)e an integral meiiiple of the record size. 

3. W'fiiuig: If a data set is defined as containing for- 
mal- F records, j.iiv .siiorl records v\Titten bv a for- 
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Fixed -length 
(Format F) 



RECORD 1 



RECORD 2 



RECORD . 



RECORD : 



RECORD 6 



i^ -- -- -~ 1 Poge — - ^^ - iJ-* - 1 Page ^ 

Maxinum record length: 1 , 048, 576 bytes . 

System automatically keeps track of ovei lop ac'0>i page boundaries. 



-i 



Voriobte-iength 
(For mot Vk 



-« — — Record 1 - 



bill 



bill 



^ Recoid 3- 



blll 



bill 



I Page -84*-^-^ I Page — -^- 

Maximum record length: 1,048,576 bytes. 

System automaticaily keeps trock of overlap across page boundaries. 

The FORTRAN l/'O routines maintain the first four bytt's of each record. 
The user need only be aware of the DATA portion. 
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^ Record 1 -- 


-'-- ^H«- -- 


-^ Record 2 - 


M*-^-- ^ 


- Reord .' 


- «+• 


Kc-cnrd 4 


---*t* -^ - 


— Record ) 


*^ 




Data 




Data 






Of;fn 






Date 






Data 


\ 


^__ 


1 Oace^—- 


~ ^ -^^- ^- 


-~-^ 1 Page -- - 


. 


k--^ 


^ 1 Pdc^ 


,.. 


^ i ^ooe - - 


. 


. 


-^ - 1 Poo.. ^ 


^. 



Undefined 
(Format IJ) 



m Record length; multiple o*" 4096 bytes. 

® ^ki\int'im lecord length; 1 , 048, 576 bytes . 

® VSAM cIqI': sets ccnno: be v.'ritten on volumes containing physic'i 

Note: Internal >-erord formats may difer from t'->e externa! record formats described in ' 
For an e/plonotion o* internal record ror^uts, see IBM System,'''360 Time SharirK 

Fipiirc 20. Record Formats — Virtual Scqviential 

'iiwx pvogvam arc pailck^ci with trailing hlanks or 
biiiar\' vrro,: 'o tlic rt'ciiiircc! .si/c. Attempts to write 
logical nearer grt^alcr tlian the size spcc-ilied will 
cause diagiieshc; and the record will be split. 
4. RcadinLi: lainord ^valaons of an input rc^cord cause 
IK) !a-ror indicatii'is and arc siiriplx' ignored. At- 
r-tnipts to reaci loixa-.e reeord- loiigi^r than the size 
of \hv ioniiat-F reeords t■.ul^^ •■ -i diaunostic and the 
ae\t logical r<^c(a-i; will h" . -c iuHill the request. 



FORTRAN Records 

V\4thiii die '"our elasses oi" logieal rr-eurds (i.e., F, \\ 

L or D;, die voivvuw i 'o roulines eonsiiiiei [lu'vv dit- 

ferecit r\'pes oi" r(Y,'ords. depenchng on lh(^ forfrax 

iangoauc^ statements used to wr-te Ihv records. These 

fliree tvp'cs of recH)rds are formatted, XAMiajST, and 

uidcniualted. 

Formatted Records 

A FORTRAN program most commonly reads or writes 
logical records whose length is defined by the format 
statement and the list. Thus: 

FORMAT floH RESULTS ARE ) 

can be referred to in a write statement without list in 
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order 0; write a singk; log'cai record of 15 bytes. 
\Ucr;-.r h-eh': 

iMiwtAT •'r-Ai iU':sx;i;i's .vrv: , 5i5i 

i}rodnLes a loidcai rrcord of 20 bytes if tlie write 
staleuiciK has a siiuik' ^^inipkw varia!)le name in the 
list. i!3 b\'t(-s i(^r |\m) rKunes. etc., up to 40 bytes for 
fixe o.iracs in tlic" Hsf. ll (licre are more than fi\'e simple 
\ariahii'S in tlic^ bisi, u riUMl)t;-r of additional records 
ar(^ wnUcn, all nt \s aich ■ excepi possibly the last) are 
■fO b\-^^s u\ K-ugih, since the format specification 
specifies 40dn U retord^. 

W'iicr^ vc)WVV.-\\ I •; lias l)uilt np a logical output 
I'ecor. 1 ac<'ordiiVj: {■.! die rides s|)eeified In- the Fortran 
!•.' iangfiag^,\ it ine'c.i ponitc-s !he rc^sidling recorrl into 
aii\- dafji s< t h)rma!, adding a length indicator, if re- 
{juired !or formalA" records. <ind making up a block 
ror F !o}i'nal ))lockevl r<x'or(is. 

li ihe w^rr lius ix^cfuesfed fonnat-l^"" oi" -V records for 
an eMapn! data set (in a UDt-T'^ commaiKb), none of the 
gcan ratf d logiciii r(M_H')rds shoidd c^xceed the ma.ximum 
pc^imiltcd logical record kaigtli specified in the ddef. 
Two or usore data s(^t reccnxls are genera t(xl in such 
a casi\ and a. diagnostic is issued. 

Lf an attempt is made to read a logical record longer 
than die one on tht. }n];iit data set. a diagnostic mes- 
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Fixed-length 
(Format F) 



Initial Key 



- Record 



*-h Record 2 



Key 



DATA 



DATA 



- Record 3 - 



DATA 



-Record 4- 



Key 



DATA 



Imbedded Key 



-Re 



First Part 
of Data 



KEY 



End Part 
of Data 



^ Record 2- 



First Part 
of Data 



KEY 



End Part 
of Data 



Record 3 *ft— — Record 4- 



First Part 
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KEY 



End Part 
of Data 



First Part 

of Data 



KEY 



End Part 
of Data 



Variable-length 

(Format V) initial Key 



■* 


--- Record 1 


»• 


"*" ' 


Record 


I ^ 




-*- 


Record C 
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bfll 


Key 


DATA 


bill 


Key 


DATA 


hm 


Key 


DATA 


i 



Imbedded Key 



- Record 1 



- Record 2 



— Record 3 



bfl5 



First Part 
of Data 



KEY 



End Part 
of Data 



bill 



First Part 
of Data 



KEY 



Enc Part 
of Data 



bi» 



First Part 
of Data 



KEY 



End Part 
of Data 



• Maximum logical record length: 4000 bytes. 

• Maximum number of records per data page: 1300. 
i« Maximum key length: 255 bytes. 

• Maximum number of data pages; 65,000. 

• Maximum number of overflow pages: 240. 

• Maximum number of records per overflov/ page: 255. 

• No limit to the number of directory pages. 

• User responsible for Key and DATA parts of each record. 

• FORTRAN I/O maintains first four bytes of format-V records. 

Figure 21. Record Formats — Virtual Index Sequential 



sage is issued and the next record will be read to 

fulfill the READ. 

Parameters in the ddef command that diflfer from 
those of an input data set override the latter, and will 
cause errors. 

A summary of formatted Fortran records is as fol- 
lows '. 

1. FORTRAN logical rccord of X bytes written on a data 
set with format-F records with a logical record 
length (lrecl) of Y bytes: 



(a) X = Y 



(b) Xless than Y 



(c) X greater than Y 
(error) 



FORTRAN 



Data Set 



Blanks 



FORTRAN 



Data Set 



FORTRAN 



Data Set 



Write on Next Record 



2. FORTRAN logical record of X bytes written on a data 
set with format-V records, lrecl is unimportant, 
provided it is not set to less than X. 



FORTRAN 



Data Set 



X+4(VAM) 
X+8(PS) 



3. FORTRAN logical record of X bytes read from a data 
set with format F records with an lrecl of Y bytes: 

(a)X = Y 



Data Set 



FORTRAN 



(b) Xless than Y 



Data Set 



FORTRAN 



Not Processed 
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Fixed-length 
[Format F) 



RECORD 1 



RECORD 2 



RECORD 3 



Maximum record length - 32,760 bytes. 
Each block treated as a logical record. 



Fixed-length 
Blocked 
(Formot FB) 



REC 2 



• Moximum block length - 32,760 bytes. 

• Blocking factor Is usually coristant; hov/ever, data set may contain truncated or short blocks. 

• FORTRAN I/O does not truncate output blocks except at end of data set. 



^- 



LL, 



Variabie-length 
(Format V) 



n, 



I i ^ ^ob 



Maximum logical record length - 32,756 bytes. 
Length control fields supplied by FORTRAN I/O. 



Variable-length, 
Blocked 

(Format VB) 



-H; - 



2o! tinued below 



- LL2 " 



^"H 



LL2bb 



II -.bb 



Maximum logical record length - 32, 756 bytes. 

Length control fields supplied by FORTRAN i/'O. 

Format-V anc blocked format-V records cannot be processed on 7-track tape units without dote conversion feature. 



Undefined 
'Format Uj 



- Record 2 - 



Data 



Record 3 



• Record length; defined by pnvs'cal bounds recognized by the s'crcgr device. 

Figure 22. Record Formats — Physical Sequential 



Read From Next Record 


Data Set 


j\ 


f ^ 


FORTRAN 



( c ) X greater than Y 
( error ) 



4. FORTBAN logical record of X bytes read from a for- 
mat V data set logical record with a data length of 
Y ( data set lrecl in the ddef command is unimpor- 
tant unless it is deliberately set smaller than max- 
imum likely Y): 

(a)X = Y 

Y+4(VAM) 
Y+8(PS) 



Data Set 



FORTRAN 



{b)X less than Y 



Data Set 



FORTRAN 



( c ) X greater than Y ( error ) 



Not Processed 
Read From Next Record 



Data Set 



FORTRAN 



NAMEUST Records 

FORTRAN NAMELiST rccords are written based on a 
NAMELiST variable list that provides a namelist desig- 
nator name followed by a number of variable or array 
names. 
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This results in the generation of at least three logical 
records : 

1. A record containing only the namelist designator 
name preceded by an ampersand (&), which starts 
in character 2 of the record 

2. One or more records containing items of the form 

variable-name = integer, real, complex, or logical 
number 

3. A final record containing &end, which starts in the 
second character of the record. 

The user has no control over the spacing or size of 

items in the second class of record; this depends on 

the size of the number field required to represent the 

variable. Typical output might appear as: 

&NAME1 

A=47. 00000, 1=5, N=-76709,XXX=~-0. 1234567E--07 

&E\D 

li iormat V is specified, records of different lengths 
are written, but none exceeds 120 bytes. 

ff format F is specified, the specified logical record 
length in the ddef is used. The logical record length 
can be set to 120 to facilitate subsequent printing of 
the data set. 

If format U is specified (with a data set organiza- 
tion of Ps), unblocked rc^cords (format V) are di- 
rected to the output device. 

If the DDEF command for a na^ielist output data set 
is defaulted, outjiut is directed to sysout as variable- 
lengtli records of up to 120 bytes. It is either written 
conversationally at the users terminal or stored on a 
system data set (sysout) for subsequent printing. 

Since key information cannot be maintained wdthin 
NAMELIST records, namelist records with a data set 
organization of vi are not permittee!. 

If NAMELIST input is from sysin, the terminal entries 
for conversational input should be exactly the same as 
would be punched on a data card. A prompting mes- 
sage requesting xa^telist input is printed. 



Unformatfed Records 

Unformatted Fortran logical records are written only 
under the control of a list with no forklaf statement. 
Data is transferred to the output data set in internal 
representation copied from virtual storage. 

All unformatted output is made up into format-V 
records using, if necessary, a standard pair of bits in- 
dicating that a given record is incomplete and extends 
into the next record. For VSAM records, the first two 
bits of the first byte in the record length fie^ld are used. 
For BSAM records, the last tw^o bits of the third byte 
in the block length field are used. The bits of this byte 
are given the following meaning: 





VSAM 


BSAM 


Meaning 


Bit 


(first) 


6 


This record spans into the next record. 


Bit 


1 


7 (last) 


This record spans from the hist record. 



Unformatted records written by the IBM System/ 
360 Operating System with ps organization are proc- 
essed correctly l)y Tss/:i00. 

When the ddef command for an output data set is 
defaulted and unformatted records are written, they 
are converted to hexadecimal and appear in this form 
at the terminal or in the listing. The spanning indica- 
tor and record length are printed. When the ddef 
command For an input data set is defaulted and un- 
lorniatted records are to 1k^ read, the prompting mes- 
sage reminds tlie user that liexadcx'imal data should 
he (Mitercxl. TIk^ ns(^r is not recpiired to enter hexa- 
dcx'imal chita for tlie k^ngtlt field and spanning indica- 
tor. If (^nc^ lin(^ of input is not enongli to fill the 
(dements of the list, additional re(|uests ar«^ made for 
mini.' lines until (.lioiig]! d:i.ta is rcx'eix'cd. Invalid hexa- 
decimal characters cause ;i r(H|n(\st ior a nrw line of 
data. /\ blank in the inpni line is treated as marking 
thc> i'ud of hr^xadc^eimal (hita, and an\' FurtluM" char- 
:iCi(M's ill the Hue arc io;no]'ccl. 

Summary of FORTRAN Dato Set Formats 
Table 10 summarizes the allowable data set organiza- 
tions and logical record structure for data sets created 
or proce-ssed by fortbax object programs. 

FORTRAN Operafions on Data Sets 
Generation of New Data Sets 

A FoirniAX program can write an output data set to 
be used as intermediate^ data, print or pimch output, 
or to be prccessiHl later l)v other programs. 

1. Ifitcnnedialc Output: This requires use of the sim- 
riiest kwin of ddit deseribcTl under basic ddef com- 
mand. Defairit charac^'trristics are suitable for ail 
apphcations and for any combination of read, 
WBiTE, and control statements. 

2. Print or Punch Gtitj)uf: The default parameters of 
tiif^' basic ])BE^^ command are acceptable. Uiifor- 
matied records should not lie interspersed with for- 
matted. The PRINT or catalog command should be 
issneci for the data set Iieforc^ logoff. In conversa- 
tional operation, defaulting the ddef command will 
cause the output to be printed at the terminal. 

:i Oiiipiit Bctcnfkm Within TSS/360: The simplest 
lorni of DDvF eomniand can be used, arid the data 
set will be ealalogrd since new data sets defined 
bA' tb.r liasic^ \ro\:v command reside on public stor- 
age. The data set ma> reside on either a public or 
jirivate \'Oif]me. 
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Table 10. Data Set Format Summary 



DATA SET 
ORC;AXrZATlOX 



RECORD 

i-'omiAi' 



LOraCAL RICCOKT) LENCTII 

(erf.cl) notes 



! DlSr=:NEW) 

RF.QUIRIT) 

PAHAMETRRS 

IN DIJI''F 



vs 



F~ 



1. Max leimtli =: 1,048,576 

2. Default luiigtli = J33 

3. Paddiii'j; occurs if ()ut])iit less 
tliafi spccififcl 

4. Error if output greater tlian 
spet ified 



j3SXA\fE=: 
RECF\I = F 

FRECL= 



L H'T'orcls ar(^ always blorked. 

2. Do not use for unformatted L/O. 

3. No tapes. 



VS 



1. Max len.L^tli = 1,(»48.572 

2. Default IvuiXiJi — -1092 

3. i\o paddin.ir if output less 
ihari specified 

4. Errcir if output .u;reate! lluui 
specified 



l^'^l vxFy\A', \''S ]. lleccirsis are always blocked. 

LISX \\f}'>- 2. Cam Ijc used for formatted, unformatted 

mi'A nami:list logical records. 
3. •i-n\'lr leu.nth indicator at beginning of 
«-acli logical ri-cord, not transmitted to 
User's stouiue. 
-1. Xi* tapes. 



VI 



Ma^ leogtli = 4,000 
Dciiiult leu-tli zz i33 

Padduig occur.N if ctulput ii*s>, 

tliau specified 

Error if oulput grc^atc! thai: 

specified 



'^^'I'xxI'X'vy, \"i 

DSXAMF- 

RECFfvl-F 

key: ex- 

RKPzzr 



I. !\ccoi-c!.> are always blocked. 
2. Do nut use for unformatted I/O. 
->. F'scr must stipj)ly ke\' in the record 
•1. AC tiipcs. 



VI 



PS 



:. ^.!a>^ length - 4,000 X, MXxlX' v. VI 

2. Default ieugtb. = 4J)0r :3 JXSXAME- 

3. No padding of logical records '.. X'lsYi JsXrr. 

4. Error if output greater tbiui !. Hf\l^-=' 
spec, ified 



1. 'iccii-M-l> aic- ab.'a}'s blocked. 

2. 3';;,i, hr^ uscil for fornifificd logical records 

iiid nnfiiiniaftiYl iisiuu core in tb(~' key). 
■"). \ M'l mirs*: i^uiiph" key tii tlie record. 
4. 3b\'tc Icngtii indicator at beginning of 

' a,iE louical rc-cort!, not transmitied It? 

n<(""\s storage. 

3. Xo t;i]")es. 



L Klax length = 32,760 

2. Debmit lengtli = 133 

3. Padding occurs if ouipuf less 
than specified 

4. Errca" if output greater lliaii 
specified 



f^Tsxh .v^^'}'. IkS i. bcccu'ds are un!i!oeked, 

DSXAV!E-r 2. X'olume may be tape. 

HE.Cf'"^>^!r.^f'^ 3'. Do not ns{^ for unformatted I/O. 

1 JlIsCXc:::: 4. I F^M Svs j/unXiOO Opr.aating System vol- 

umc^ can be \'>Titten/read. 



PS 



FB E NEix lengtli = 32,760 

2. Default length — 133 

3. Padduig occurs ii output less 
tiian specified 

4. Ern-.r if output greater trian 
specified 



}<1X\ry\'y. PS 1. \ta.\iuiun'. blcn k icnglli i-; 32,760. 

DSXANIE- 2, Dcbiult Idock Jcnglh is 30^)0 

Pds(l'XE-X-'b 3. P.'lnck tenirtb must be a multiple of 

iJiFCLzzr LHIsCi.. 

BEK^fZIX:.:: 4. Xau ]iv u^.e(i ha- jornidltcd logical records 

onJ3-. 
3. \'ohur»e may i,?e ta])e. 

6. ilb\t Systcm/360 Opta'ating System voE 
unies c;m lie \'. rit ten/read. 

7. Cannc^t be speciilcxi for ASCII data sets. 



PS 



t. Mas length - 32.756 

2. Dcbiult length = 4f)92 

3. Xo jiadding 

4. Error if oulput greater than 

siietifieil 



FI'xxIaaac PS X Mixinium blook length is 32.700. 

DSXAKIE- 2. Dcfaidl block length is 4096. 

3. Plod: hamtli must be a iruiltiple oi 
kJtECE. 

4. Can lie used for foruiaiied, unfoniuiitcd 
imd XAMELisT records. 

"). \'olum(^ may !)(^ tape. 

6. iPiM Syslem/.'>60 Operating System vol- 
umo .;an hv written/read. 

7. l-iu't'C Ifngthi indicator at beginning of 
'.•:ic!i logical record, not transmitted to 
iKNcr's s[c»ragc. 



^IBKI-supplied default parametf-r 

2FormLit~l' records are treated as I'ormat F with length of 4006 in VS 

^RKP must alh)\v for tlie 4d)vto indicator 
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If the data set is to be used subsequently by 
others, a permit command must be issued for the 
data set so that those who wish to use it can 
SHARE it. 

4. Output Retention Outside TSS/360: A data set to 
be used on another tss iifio system is treated as if 
it w^ere to be used on the same system, but a private 
volume must be requested. However, if the data set 
is to be used on another system (not a tss/3<K) sys- 
tem), a full DDEF command is required for one of 
the PS data set types on either direct-access storage 
or tapc\ Th(^ data srf should ]}r on a private' volume. 
A]] tapes should \]n\c standard labc^ls, so that they 
can be processed on rss/ aiK) aiid most other sys- 
tems) with a minimum of ddef command para- 
meters. 



Reading Existing Data Sets 

A FORTRAN object program may use input data sets 
from a number of different sources and with different 
characteristics. 

From Outside TSS/360 

1. Card decks. Card decks may be placed in a termi- 
nal card reader and read directly by Fortran when 
the DDEF command for the input data set is de- 
faulted. Another method is to submit to the tss/360 
operations center the card deck made up as input 
to a system program that generates vam data sets 
from card decks. The card deck is set up for a 
nonconversational task in one of two ways: 

a. The deck contains a logon card and command 
cards that call a specified Fortran porgram. The 
data cards follow^ the call card; the last data 
card is followed by a card with %end in columns 
1-4, by additional systemf command cards, and 
finally by a logoff card. The entire deck causes 
FORTRAN execution similar to that in a batch en- 
vironment. The resulting vam data set serves as 
SYSiN but cannot be cataloged or retained in the 
system. (See Example 13 in this manual.) 

b. A data descriptor card immediately precedes the 
first data card. The data descriptor card is de- 
scribed in Command System Users Guide. Fol- 
lowing the last data card is a card with %endds 
starting in column 3. The resultant data set is 
cataloged and is accessible to Fortran programs 
by means of the basic ddef command. 

2. Magnetic Tapes. If the tape is to be used frequent- 
ly, the system operator should be requested to make 
a vs data set from the tape using a program similar 
to that mentioned above for bulk input from cards. 



The operator will create a standard cataloged 
vs data set that is accessible to the user for any 
session. 

The alternative approach is to treat the tape as 
a private volume, request it on ddef commands with 
DSORG set to PS, and specify the additional param- 
eters as discussed in "Full ddef Command" in this 
appendix. When the tape has no labels, a number 
of ddef command parameters must be specified 
that are normally obtained from the tape label. 
How^ever, if the data set is cataloged (catalog 
command following ddef command), it again be 
comes possible to use the basic ddef command. 
3. Direct-Access Volumes (Not VAM). To use direct 
access volumes from outside tss/360, supply appro- 
priate^ ddef commands for dsorg of ps with the 
parameters given in this Appendix. Issuing a cata- 
log command following the ddef command will 
make PS-type direct-access volumes more conveni- 
ent to process in future sessions. 

From Other Than FORTRAN Programs on TSS/360 

FORTRAN i/o can be used to process most input vam 
data sets created under Tss/iifio. The basic ddef com- 
mand is used. Any input logical record that can be 
represented as a print line can be processed by a 
FORTRAN program having the right for^iat statement. 
If a non-FORTRAN program has written a non-VAM 
data set such as a tape or direct-access volume on 
Tss/;U)n, the user should proceed as if the volume had 
originated outside Tss/aeo. 

From FORTRAN Prog.ams on TSS/360 

There are no special considerations wiien exchanging 
data sets between Tss/rioo Fortran programs. 

Exception Handling 

If a read statement is being executed and it contains 
the optional specification of end= or err=, and an 
end or error condition exists, control transfers to the 
user program without error message or interruption. 

If an end-data-set condition exists and end= causes 
continued execution, further reads on the same data 
set cause a search for another ddef command (e.g., 
one with a ddname of ftoifoo2 instead of ftoifooi). 

If an error condition exists, the user can attempt to 
l>ackspace and read again as many times as he w^ants. 

If dsorg is PS for magnetic tape, the system's error 
recovery procediu'es are applied to read or write 
errors unless suppressed by the iislsk option in the 
ddef command. If the error is unrecoverable, the pro- 
gram terminates (system exit is called by the i/o 
routines) unless a read with the err option is being 
processed. If the imsk option has been used to sup- 
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press one or more of the standard error procedures, 
this suppresses either termination of the program or 
transfer to the err location. 

If DSORG is PS for direct access, the system's error 
recovery procedures attempt to use alternate tracks. 
Thus, when a track is found to be defective, the sys- 
tem assigns the next available alternate track. The 
FORTRAN user has no control over this action and is not 
aware of its taking place except that in the event that 
no alternate track is available for a write, the program 
will be terminated. 

Positioning Statements and Sequence Rules 

When operating with vam or PS-type data sets, the 
system attempts to interpret and execute each Fortran 
positioning statement in accordance wdth the organi- 
zation of the data set in question. 

1. For SYsouT and sysin, all positioning statements are 
ignored imless they violate rules 2 through 5. 

2. An attempt to use endfile on a data set that has so 
far only been used as input causes an error message 
and execution is terminated. 

3. When endfile is used on an output data set, 
subsequent write statement", relate to a different 
ddname (i.e., another ddef command), such as 
FT01F002 instead of ftoifooi. 

4. The sequence of statements w^rtte-endfile-read 
cause an error message and program termination. 
The sequence w^rite-endfile-rewtnd-read is ac- 
ceptable. 

5. An initial rewtnd has no meaning for vam data sets 
that are always accessed starting at the first record; 
hence, it is ignored. The sequence read-rewind- 
read is acceptable and causes a return to sequential 
processing starting at the first record of the first 
data set associated wdth the data set reference num- 
ber. Also read-read-backspace-read is acceptable. 
Attempts to backspace when positioned at the first 
record of a data set are ignored. 

Execution I/O Error ^lessages 

All FORTRAN i/o ciTor mcssagcs are directed to sysout; 
that is, they appear at the terminal during conversa- 
tional mode or are listed after a nonconversational task 
is complete. 

All messages except those that cause a system pause 
start with a five-character name that identifies the i/o 
routine issuing the message. The names abvays start 
^vith the four letters cnci and end in one of the letters 
A through Y. 

Most messages consist of a fixed portion, usually 40 
bytes in length, followed by a variable portion of 
about 20 bytes that contains the variable information 
associated wdth the message. 



When a Fortran pause statement is executed, the 
user is permitted to enter any command other than 
load, unload, or call name, and then to continue exe- 
cution of the program with go. In nonconversational 
mode, the pause message is written on sysout and 
program execution continues. 

Certain error conditions do not permit further exe- 
cution of the program, such as an end-data-set condi- 
tion from a read statement with no end= specified. 
This causes the printing of a message; then control is 
transferred to the system termination routine, exit. 
Any data sets that the program has left open can be 
closed wdth the close command. 



SECURE Requirements for Nonconversational 
Tasks 

Nonconversational tasks are enqueued until the sys- 
tem is able to fill the requirements for private devices. 
This list of requirements is made available to the sys- 
tem by means of a secure command w^hich the user 
must include in the task's command procedure as the 
first command after logon. Then as each ddef is read 
and processed, the required devices are allocated 
from those that have been secured for the noncon- 
versational task. Any attempt to allocate more than 
are available will cause the task to be terminated. 

In determining the number of devices needed in a 
task, the following points should be considered: 

• The number of devices should be at least equivalent 
to the number of data sets on different private vol- 
umes w^hich are opened at any one time. Two or 
more data sets residing on the same private volume 
may require only one device (the exception is de- 
scribed below^). 

• If two different data sets residing on separate vol- 
umes are used in sequence (i.e., the first is closed 
before the second is opened) the system can be 
directed to allocate the same device to both by 
including the unit=:aff option in the second ddef 
along with the ddname of the first ddef command. 
When the unit=aff option is selected, the device 
types of both data sets must be compatible, and 
neither should be new^ data sets residing on direct- 
access devices. 

• If two different data sets on the same or different 
private volumes are defined by the same ddname, 
the unit==aff option may not be selected, regardless 
of w^hether the references are in the same module or 
not. If the same data set reference number is used 
in different programs in a multiple execution task, 
then the first data set must be released prior to the 
second ddef; thus, two devices must be secured for 
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the data sets even tlioiigli both data sets are not open 
at the same time. If both data sets are processed 
serially in the same program (i.e., the end of the 

data set is reached, followed by a bead on the same 
data set reference number) tlien two ddef com- 
mands are necessary with the same data set refer- 
ence number in their DDXANrE and with successive 
data set sequence numbers. In this case, one device 
is sufficient because the unit affinity option may be 
used. 

If several data sets are to be serially processed 
with unit affinity specifed, each data set may have 
unit affinity with only the most recently processed 
data set. Note that unit affinity may o^nly be speci- 
fied for physical sec|uential data sets. 

If, however, the data sets are not processed serially 
in the same program, the first data set must be re- 
leased prior to the second ddef. Therefore, two 
devices are necessary since the release command 
removed tlie device from tlie task's allocation prior 
to the second ddef command. 



Guide to DDEF Commands 

This section discusses: 

1. Basic DDEF Commands -- describing the general 
form of the basic ddef command and its uses. 

2. Default of ddef Commands — describing the condi- 
tions where ddef commands are defautable and sub- 
sequent system action. 

3. Full ddef Command — descri!.)ing the general form 
of the full ddef command for the forthan user. In- 
cluded is a table illustrating for each type of data 
set, the required and optional ddef parameters. 

The ddef command is used to establish a data set 
in the system and describe its characteristics. In gen- 
eral, any data set required by a Fortran object pro- 
gram during execution must be specified in a ddef 
command. 

A ddef command can be issued at any time within 
the session prior to the c,\ix command for the pro- 
gram in which the data set is to be used. Each ddef 
commruid is valid only during the task in which it is 
issued: pre\ioust}^ defined data sets must be redefined 
at ever)- task tliat rt^fers to tliem. A di)I':f command 
that has becni entered can hv canceled by a release 
command. 

Xormalh". foruiax ust^rs reqiuire only liasic ddei^ 
connnands, defaulting almost all of the operand fields. 
In some cases, ddef commands tlK^mselv(\s can be de- 
faulted, in ^^hicri cas(^ the sysix or sysout data set for 
input and output respectively is chosen. More complex 



ddef commands can be used if the data formats re- 
quire it. 

Input/outpiit statements, such as read, write, re- 
wind, backspace, and endfile, apply to collections of 
data that are referenced within a Fortran program as 
integer numbers: 

read ( 23 ) A OR write ( J )b 

Since iIk^ reference is to tlie data ratlier tliari any 
specific de\-ic-(\ this ninnlxn' is called the data set ref- 
erence number. 

The data s(4 rei(M-(>nee numbcT used within a for- 
^rjiAX program must be associatinl will: a (lata set name 
or DSXAN[i: before^ thr- system can read or \\rite it. This 
rclatidusiii]) is rsta])h'sl:t(M;l ])y rc4'er(^nc(' to a ddi-:f coni-- 
mand lliat h'nks a data set ref(^]-encc number, a data 
(k^finition name (ddxamfK and a data set name 

1^ DSXAMi:). 

Conunand foriiiat s])c^cification con\'entions are 
h'stc^d in Appendix G. 

Basic DDEF Commancl 

The basic ddef commands ma}^ be used for amj 
eatak)god input data set (^xeept tliosr- on unkibelec"; 
Uip(\s. f"or a uvw (kila set il siieciric^-s public x'olume 
rt^si(]ene(\ a \'irtua] scxjuential (; vs'^ data set organiza- 
lion, and \-ariabie lengtli records (format va ) . T)aux 
s(1s definc^u with this basic ddfi-^ commriiKl must be 
eatak)g(>d b\' {]]c s}'stc^m. Tiie ])asic ddi:f conimand 
is sriO\Mi in I'^i^ure 23. 



Operation 



DDEF 



Operand 



DDNAME=zdcfta definition name, [DS0RG=:{VI VS;VP}] 
DSNAME = dafa set name 



Figure 23. Basic; DDEF Commancl 

DDNAME^FTxKFyyf 

The DDXAME parameter must be of tlie following for- 
mat: 

FTxxF}'yy 

\\"here xx is tlie cUila set reference number used within 
the program and must be two mU%cr digits in the 
range 00-99; for example, a program containing the 
FORI RAX statement eead (■:>, 00) a requires a ddef com- 
mand with ddxamf: parameter fto^fooi. The yyy is the 
threc^ integer digits 001. except as notcxJ, be]o\\'. The 
y\A- portion of ilw ddxami-; pc^inil.'; o]H^rations on miii- 
tiple (kita sc^ts ^\■ith the same data set refca'caice nunr- 
bc^r. For exampk\ wlicai a read (:.. exd-U!) is used 
and an c^nckof-data-set condition, occurs. suc\;'essi\^e 
read statements applying to data set reference num.- 
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ber 5 take place on ddname ft05F002; therefore, two 
DDEF commands shoiik! be supplied, one for fto5fooi 
and tlie other for ft()5F002. Similarly, when a w^rffe ( 5 ) 
statement is followed by endfile 5, successive w^rite 
(5) statements take place on ddname FT0r)F002; there- 
fore, tw^o DDEF commands should be supplied, one for 
FT()5FO0i and the other for fto5foo2. 

If a DDNAivfE with yyy higher than 001 is used, ddef 
commands for all yyy between 001 and the higher 
number must be provided. The various data sets using 
the same data set reference number may have com- 
pletely different characteristics and may be stored on 
the same or different devices. 

DSORG= 

Specifies the data set organization. In the basic ddef 

command, this should be specified as vs (virtual se- 
quential). Other data set organizations and their use- 
are descril^ed later in this appenchx in "Full ddef 

Command.''' 



DSNAME= 

The ])s\.\ME purarnclcr d(,\scription DSNAMEr-name 
specifics th(^ name oi ihv data set. This is the name 
imder wliich the data set is to be cataloged or referred 
to b\' otlu-r commands during the. session. It contains 
one or more simple names, each simple name ha\'ing 
one to ciglit alphameric eliaraetcu-s. thc^ first of \\'hieli 
must l)r al|")ha1)eh'c. \ period is used as sc^parator be- 
t\^'ecn simple names. TIk^ maximum ninnber of charac- 
ters, incliuh'ng i:Ki"io(ls, is 35. 11k^ maximum number 
())' simn](> name's is 18. 

VoY man\' eases the dsn am r ^^•ill consist oi only onc^ 
siini^k^ iiaiia^ such as: 

DDEF F10()rOi):,VSJ>SXAME = C)lTPUT,DISr:::=\EW 

.\ i>-.\A.\n-: !na\- he ot vdlnv in describing th(^ con- 
tents 0! the delta set. Tints, a program that g(^nerates 
a talkie ot random num!)(^rs and a tablc^ of scj^uare roots 
\vii]i (he data set rc^ference numlx^rs 1 and 2, r(\spec- 
ti\'<1\-, rniirht emplo\^ tlie ddef commands: 

nr)FF ft;)]Fu(m. \-s, TABEE,]FVN^;u^r 

DDEF i''ru:}FO!iK vs, DSNA^Hv-:::: rAinJv.SORROOlS 

A siPii|)lc nutans ol obtaining uni([nt^ meaningful 
DsxAMFs is to use the program moduk^ name as the 
first simple name :in(l iht^ ddxaxti-: as tlu^ second simple^ 
nairu-. Tiier(^for(\ a program called exsmooiii tliat 
writes its output on data set refercaice number 10 
nn'ghil \h' gi\-en DDFf-" conunand parameters: 

ddef ft 1 OFOO I , VS,DSNAME = EXSXf OOTII.FT 1 OFOO 1 .OUTPUT 



Use of partitioned data set member names and rela- 
tive generation numbers are for a special kind of data 
set discussed in detail in this appendix under "Full 
DDEF Command," but their effect on dsnames is de- 
scribed briefly below. 

The dsname may continue one of two additional 
kinds of simple names. The first is written within pa- 
rentheses and is not preceded by a period. The second 
is a simple name of the form GxxxxVyy, where xxxx is 
a 4-digit numeric generation number and yy is a 2- 
cligit nimieric version. 

If a simple name is not separated from the previous 
name by a period and is within parentheses at the end 
of a dsname, it may be the name of a member of a par- 
titioned data set (first character must be alphabetic) 
or a relative generation number (zero or a signed 
integer). 

Examples: 

MAT.HLIB(SQRT) Means the SQRT member of the parti- 
tioned data set MATHUB 
PAYR,OLL(0) Means the most recent preneration of 

PAYROLL 
PAYROL.L ( -1 ) Means the last generation of PAYROLL 

PAYROl .L (' 4- 1 ) Kleans the next generation of PAYROLL 

PAYROl . i .C;00D5YD0 Fifth absolute generation 

If a DsxAME is to contain generation names, the 
Dsxwn. ipropca- is limited to 26 characters, including 
periods. 



Defayft of DDEF Commands 

\\1ieij an f o statc^ment is encou.ntcn-ed during tlie ex- 
eenti>;)n of Forrn^Ax programs and the data set refer- 
rnvv iKiinbc^r is orn^ tliat has not alrcad}' bcxai iistxi 
the I () rontin(\s nvdkv a sc^veh of user ddef commands 
issnc^d so far. This sc^areh hi based on tlie appropiiate 
ddname eoirstruetcxi from tfie (L'lta set reference mnn- 
hvv aeeeixh'ng to the coruHndion FTxxl'yyv. If no such 
eommand is found, thc^ terminal is defaulted. 

Conversational 

Running conversationallv with a defaulted ddef 
eomiaarKi mc^nis that any a^iute statements in the pro- 
gram cause data to l)e printed at the terminal. Unfor- 
matted WHFrE statements result in the printing of 
h(>xadeeimal data. Formatted or xameelst write state- 
ments lead to the output of print lines identical to 
tfiosc that would a})pear on a line printer except that 
the pag(^ skip carriage^ comrol character is treated as 
a. triph- space and, if the terminal has a print line size 
sliorter than a generated fof,thax logical record, two 
or morc^ linens are outjHit (up to a maximum permitted 
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logical record length of 256 bytes). The first char- 
acter in the record does not appear but is handled as 
a carriage control character. 

Running conversationally with a defaulted ddef 
command means that any read statement requires in- 
put from the terminal. 

The expression f end is needed to indicate the end of 
data to be read by the user's object program from 
SYSiN. It can be punched on a card for nonconversation- 
al processing ( or entry through the terminal card read- 
er) or entered through the terminal keyboard. The 
FORTRAN i/o Subroutines detect the end of input by an 
end-of-data set condition. The system recognizes the 
expression, Iend, and generates an end-of-data set in- 
dication, which is transmitted to the Fortran sub- 
routines. When a command sequence which has data 
lines or cards included with it is stored as a sysin 
data set for processing (see Examples 11. 12, and 16), 
the fEND must follow the last line of data. 

It is possible to include any number of /oEND cards in 
an input deck if the user wishes to section his deck. If 
the END=option is used in a Fortran read statement 
each fEND would then indicate the end of a section of 
data. 

i/o control operations such as rewtnd, endfile, and 
BACKSPACE are ignored when the correspondhig ddef 
command has been defaulted conversationally. 

The i/o statements read (with no data set refer- 
ence number) and print lead to automatic default to 
t€^rminal i/o without prompting for ddef commands. 

Nonconversationa! 

When an i/o statement is encountered during execu- 
tion of FORTRAN programs in nonconversational mode 
and the data set reference number has not already 
been used, a search for the ddef is made. If no ddef 
with the proper data set reference number is found 
and the i/o operation is w^rite, then output is directed 
to the system-assigned output data set, sysout. The 
user receives a listing of sysout, but the data set is not 
cataloged for subsequent use. If the i/o operation is 
READ, an attempt is made to read from the sysin data 
supplied by the user when the task was submitted. It 
should contain data following the run command if 
READ statements without corresponding ddef com- 
mands are to be executed. The characteristics of this 
data set depend on how it, in turn, was created; it can 
be either vs or vi and normally contains fixed-length 
80-character records. When reading from sysin. a rcx- 
ord consisting of the characters Iend is assumed to be 
an end-data-set indicator, which causes either termin- 
ation or transfer to the end= location specified in the 
read statement. If the sysin data set is exhausted, 



(i.e., there is no %end on sysin) the same action takes 
place, but errors will arise if the logoff command has 
been read as Fortran data. 

Therefore, data sets and multiple data sets can be 
read from sysin, but it is the user's responsibility to 
guard against reading commands as if they were data. 
Further, the user should read all data on sysin to 
avoid that data being interpreted as commands. 

i/o control operations such as rewind, endfile, and 
BACKSPACE are ignored when the corresponding ddef 
conmiand has been defaulted nonconversationally. 
The i/o statements read (with no data set reference 
numb(^r) and print lead to automatic default to sysin 
and sysout. 

Once a data set has been defaulted to sysout (i.e., a 
WRITE has been executed where no ddef was sup- 
plied), a subsequent attempt to read the same date 
set reference number will cause execution to be tei 
minated. 

Full DDEF CommGnd 

Those portions of a ddef command that are applicable 
to determine or specify the characteristics of a data 
set operated on by Fortran programs are presented 
in Figure 24. Other parameters and options of the gen- 
eral DDEF command, as described in the publication 
Command System Users Guide, are not given because 
they are ignored or overridden by the Fortran i/o 
routines. 

Specification of ddef commands for peripheral de- 
vices of the CPU is also described in the publication 
Command System Users Guide. 

The DDEF command that defines a cataloged data 
set IS brief and simple. The only required operand 
fields are ddname and dsname. Other operand fields 
are unnecessary since other information about the 
data set is described in its catalog entry. For a cata- 
loged data set if space, unit, label, or volume oper- 
ands are entered, diagnostics will be displayed as ap- 
propriate. However, the associated fields will be taken 
correctly from the existing catalog entry. 

DDEF commands that define uncataloged data sets 
can be divided into two groups: (1) those defining 
new data sets (data sets that are to be generated dur- 
ing the run but do not yet exist) and (2) those de- 
fining old (already existing, but uncataloged) data 
sets. These old, uncataloged data sets can exist only 
on private volumes. 

To define a new data set that is to be written on a 
public volume, the user can use the ddname, dsname, 
space, dsorg, and label operand fields. Exactly which 
fields he uses other than ddname and dsname, which 
are required, depends on the character of his partic- 
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OPERATION 



OPERAND 



DDEF 



DDNAME - data def inftion name 

,DSORG = | VI IVP 1 VSlPSH 

rvcKiAkJir- / data set name ) 

,DSNAME = { ^ , ^ , } 

{ * data set name I 



,UNIT^ 



DA [, direct-access device ^'ype]! \ 
TA [/tape type] > | 

symbolic device address }^ 

,SPACE - (I CYL |TRK|record lengthl primary 
[, secondary ][, HOLD j^^ 



.VOLUME"-! 



PUBLIC 
PRIVATE 

volume sequence number 



PRIVATE 

volume serial number. 



.LABEL- [file sequence number] [, InL | SL t AlI] 
[,RETPD = retention period] 

[ ,DISP= |oLD |NEW|M0D|J 

r .OPTION = |cONC|JOBLIb11 

,RET - retention code I 



,DCB = 



"data definition! ^ psoRG^code] [, RECFM=code] 

name J •- j l j 

[,LRECL=integer] [, BLKSIZE=integer ] 

[, KEYLEN^integer] [,RKP=lnteger ] 

[,PAD=integer] [, DEVD=code] 

[, DEN=lnteger] [, TRTCH=code] 

[,BUFNO=integer] [,OPTCD= IwIa}] 

[, !MSK=code] [. BFOFF=integer] I 



Figure 24. Full DDEF Command for the FORTRAN User 



iilar data set. To define a new data set tliat is to be writ- 
ten on a private volume, the user must give ddname, 
DSXAME, UNIT, and VOLUME Operands. If he wants, he 
can also furnish dsorg, space, label, and disp fields as 
well. 

The user defines an old, uncataloged data set by 
specifying the ddname, dsname, volume, unit, and 
DISP fields. The remaining fields can be defaulted for 
all data sets except unlabeled tapes. 

The description of the basic ddef command given 
previously in this appendix also applies to the full 
DDEF command. If disp=old, the full ddef command 
can be used to override data set specifications already 
given in the standard label; however, the user is cau- 
tioned that to do this may cause errors in processing 
the data. 

When disp=new, data sets can be defined that dif- 



fer radically from the standard data set resulting from 
the basic ddef command. In particular, the user can 
define output data sets to be made compatible to other 
systems. 

DDNAME 

This operand is used exactly the same way as in the 
basic ddef command. Refer to "Basic ddef Command" 
in this appendix. 

DSORG 

In the basic ddef command this is virtual sequential 
(vs). The other options are virtual index sequential 
(vi), virtual partitioned (vp),^ and physical sequential 

(PS). 



iThe DSORG parameter is also present within the DCB sublist of the full 
DDEF command. This distinguishes between the different forms of VP, 
namely virtual index sequential partitioned (VIP) and virtual sequential 
partitioned (VSP), and identifies the organization of the partitioned data 
set member to be processed. 
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The PS option must be used for tapes or disks tliat 
originate outside the tss/sgo environment and for 
tapes or disks that are to f3e written under tss/imk) and 
then transferred to other systems for j)rocessing. 

The data set organization options other than the 
standard vs are available for the benefit of the For- 
tran user who wants to process index sequential or 
partitioned data sets, either to take advantage of their 
special features or to communicate with assembler 
language programs. 

Each member of a partitioned data set is treated as 
an independent data set, and the Fortran user need 
not be aw^are of whether it is a member of the data 
set or not. How^ever, only one ddef command can 
be issued for a vp data set and, therefore, only one 
member can be processed during a single Fortran 
execution. 

Virtual index sequential can be used only if there is 
no NAi^fELiST input /output for the data set and if the 
user takes the responsibility (for output data sets) of 
maknig certain that all logical records contain a se- 
quential key in a specified location. Tlie location and 
length of this key are given as rkp= and keylen= 
mithin the dcb sublist of the full ddef command, name- 
LIST output cannot be placed on a vi data set because 
there is no way for the user to ensure a sequential key 
in a given location in every record. 

DSNAME 

The previous description in this appendix under Basic 

DDEF Command on this subject applies to the full ddef 

command. 

If dsorg is VP, a member name must be specified as 
part of the dsname. No m,ore than one member of a 
partitioned data set can be jirocessed at one time. 

The ^data set name option of the full ddef com- 
mand is needed only when processing tape or disk 
data sets written by the IBM System/360 Operating 
System with 44-character data set names. Therefore, 
this option is used only with a dsorg of ps. Subsequent 
references to the name do not include the asterisk 
prefix. 

UNIT 

This operand is only required w^hen dsorg is ps. It can 
be defaulted even in that case if the data set is cata- 
loged. 

„NIT=(D*,{g)J}) 

Specifies direct-access (either a 2311 Disk Storage 
Drive or a 2314 Multi-disk Storage Drive). 

UNIT=(TA,{7|7DC|9}) 



Specifies that a tape unit (7-track, 7-track with data 
conversion, or 9-track) is required for the data set. If 
given, it should agree with the devd parameter in the 
dcb field. 

U NIT 1= (symbolic device address) 

Specifies the symbolic device address of a non-stand- 
ard device. 

SPACE 

The space parameter is never required for existing 
data sets. It can be used for new virtual storage data 
sets (dsorg is vi, vs, or vp) to request an initial alloca- 
tion of public storag(^ that is difleient from that speci- 
fied at sysUMU gc^neration time. Its function in this 
respect is of interest only if the expected size of the 
data set is eitlKi' much ]arg(^r or mucli sniaHer tlian tlif^ 
standard system allocation, lu tliese cases, it ])(^rmits 
somc^w luit ,i2;r(\iter c^ffici(^nc\' in storage^ allocation, E\'en 
if the stoi'age rc({uircd is gj-eater than the standard 
alloeatioi), additional storage is aiitornaf icalh^ issued 
so tliat the spaci: parameter is TK^\'er re([(iire(i for \'ir- 
tual storage data sets. 

Forni 1 

SPACE =:(, primary [, secondary] [, HOLD]) 

This form is used to request allocation parameters for 
virtual storage data sets that differ from the system 
standard. Priinar\- atid s^^eoiulary allocation are in 
s|)ae{^ units of 1096 i)\'t(^s (paaes). Primary s])(^eifies 
tlu^ number- of iriitial space units to be allocated to the 
data s(^t. It is ovk^ to tlirc-e digits. St^condary is (lie 
nnmhei- of space units io b-e alloeatcMl each time ilic 
spaec^ alloeatcni to i]\c (hita set lias hvcu exliauslect 
and rnorc^ data is to ])v v/ride;;. 11iis allocation cor;- 
sists ol a one- to tl!rtu--digit (lec-iniai nnnilxa*. 

The HOLD option withiv) tlu^ scack parameter spec- 
ifies that unused storage^ assigru\d (o [])c (lata sc^t is not 
(o b(^ reU^ased \\^hcn the data set is closed. 

Form 2 

SPACE= ((TRK'CYL I record length), primary [, secondary] 
[, HOLD]) 

This form is used for direct-access devices w^here 
DSORG is PS. It allocates space in units defined by the 
first sul)paramc^ter, namely tracks, cylinders, or record 
lengths. 

VOLUME 

Form 1 

(PRIVA"\E 
I, volume se 

The VOLUME parameter is required for old, uncat- 



VOLUME^( 1^ i:^{^^jj^^ ^^^i^i number [,...] ^ ^ 
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nk/gccl (latii sets that ri'sidc on j^rivatt^ volumes. It caiA 
als(; !)(' snji])lir(! iur \ic\v data sl^Is that arc to i'(\s!dc' 
on piixa'ic \'or;inK\s. X^jlnint' st^rial nunibd's can \)c one 
[(* si\ ;tlj)haini'r;c ciiaractcrs and slioiild uniqnc]\- i;]on- 
i\\\ a pariii iilar dislv pack or ta])(^ rev] thai is to bo 
niontrtcNl. If iau\ATK is specified and nrspr-rNEW, the 
s\'slcr!' oljiains an axculahU^ \'olnane and intoians \]\v 
ns^r ui tnc \-ohnne scMcx'ted. 

in iM-neial liicrfaOa-. ■, this torni of the \'Oi.r\n-: field 
i^ ]!e<'ded i)\]]v lor data sds that -atc not ealaloi^cch J[ 
appiies inainlv whicn nsoiio is vs and a disk pack or 
i;epe u'taHrnicd h\ l:\]c ll>M Systcan '360 Operating; 
S\-ste!;; IS V) i)c r(^ad. 

Form 2 

V- )i .- Mfv--: .' \.)liiiiu' si?q(i(nc(.' numfier) 

Win IT ,.i data sel cxUaids o\ vv nion^ than one \'o]- 
upj>: , specifies tlie sc^ciiience number oF the first of the 

Oah; >?. : {{J he iruii ni" vMatlen. Tins consists of a one- 
[:> Uniidl^il nnnibca-. It is meaniriLrfnl only if tlu^ datLi 
s*' Mas !';< (a-e:<ua/a(!nri. is catah)L^ed, and its earhca 
xoHane^ ai'c no^ ie be pioeessed 

Form 3 
VOLUME rziPlJBU'G 

Thi:, to:'rn is used foi- a new ])ribh'c^ data set if tlie 
nsei stierihcs a de\'ice l'},'p(^ iri the dxit pai'ameter. If 
eri^LF: is spe'cifi(x.b the \olnme serial nnmlx^r is not 
reeo;:!;ni7f'd. ]'ri>Li(; i- also assumed if tlic voluime 
parauKu^ ]• is not sjK^ciiied. 

LABEL 

Thv- jiaramefcr apjiiies only wiien the data set or- 
U'ani/.'ition i'< vs. It is generally used only wlien mag- 
netic Oip(^s are to he- processed, since all data sets on 
(hrecf-aece'ss \-.)iunies ha\'fc labels kriown as Data Set 
(iontr'/l Biucks (dscbs'. 11u^ iarria) subparameter, how- 
v\'cv. is .qiplii-ablc U) all rs data sets. 

I! (n? 'aisire i..\Hvi. [i-']d is dt^faultecL thc^ lab(1ing 
fiSiix ci(UO!is s[iecili<H! ])y t]\c installation ar(^ assigncxl. 
llMwoNcr. i!" Ue- dat^i sel Is cataloged. lak)el informa- 
!inc ]s rth'i(\f^d irnm the cakdog. 

i'onu I 

I.Ar>t^!.-_ ; fi](' sf.:|!ienf<- niiinbe:-) 

TIk^ file sei|nence number (one or two decimal digits" 
specifics tlie nimil)(a- of a data set on a tape volume^ 
containing rnultiplt^ data sets. h<\' specif\'ing label, the 
user can skiji o\'er otlica" data st^ts and the tat)e is posi- 
tioned to tlie data set he wants. If tlie user subsc^- 
(luentK issues a i^iAVixn instruction, the tat^e will b(* 
positioiied to the beginning of the data sci' he is using 
(not necessarily to the beginning of the tape). 



Form 2 
LABKL=:(, [M/SL'AId, REl'FDrrrdays) 

Tlie ot)tions sho\^al arc nl for no labels, sl for 
standard labels and al for A sen labels. The exact 
meanin.u: oi standard labels is installation dependent. 
T\)v XL option should not be used for Fortran output 
(Uita. sets un!(\ss a definite reason exists, since a tape 
data set veithout labels recjuires a more complicated 
nora command \\-hen read, back by a fortrax program 
f luus one with labels. 

lu 1 PL) specifies th(^ mmiber of retention days and 
a[)pli(s lo out|)!it iap(\s u ith standard labels and to 
( 1 iree! -access oiUpu 1 . 

If defaidted, retpd is set to zero to permit immedi- 
ate rcnvriting of any tape or direct access data set. 

DISP 

I OLD 
DISP= J NEW 
I MOD ^ 

i)I^I^ lojj) and Dise:::;:NEW do uot affcct a data set's 
status. d1i(ar onh' functioi is to guard against use of 
file- ^^'r()ng data set. 

II Di^ie- -xiA^- is twplicitl)- sp«'cified. tlie system veri- 
iie.s fliit the DSXAME does no! duplicate one that is 
air(\id\- in tlie user\s catalog or one tliat has been 
io!Uid ill a pnA'iou.s !)i>i-.e command in tlu^ same task. 
U a duolication occurs in cO!r\~ersational mod(% the 
s\ st: i\\ issu(ss an (ai'or message. In noncon\'ersational 
mode th(^ task is Ic^rminated. 

If e>isp -OLD is explicitly specified, the system 
stsirches ior an t^xisling data set with the same 
i)s\ wne If it cannot find such a data set, it issues an 
erif)? inessagc^: in noncoUiVersalional mode, the task is 
tci-nniKiied. 

It Uh- user doc/s not spc^cify disp, and if the system 
fin.. In a data sc^l with die- specified hsxaaie, it assumes 
lli;i[ I' is to use dia! data svi. If it Ciinnot find such a 
fia!; set. it creati\s a m-w data set witli that dsxame. 

nise -zAfoD applies only when the data set organiza- 
tion is !'s and a ]Trivate volume is being processed. 
Tilly, o])tion causes logical positioning after the last 
rc-cord of the data s(^t. Additional write statements 
are then possible to expand the data set. This option 
a]ipli(\s mainly to magnetic tapes. 

OPTION 

OPriON'=:COXC 

specifies that a data set is being added to tlie con- 
cat enatc^d data s(^t nauK^d as ddxamf.. The order of 
eoncatenati'd data sets is the same as the order in 
w hicli thcA' arc^ defined. Only existing PS data sets can 
he concaloiatcd. 

Ol'TIONzrJOHLIB 
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specifies that tlie^ data set is to be used as a job li- 
brary. The data set name specified in the dsname field 
is entered into the program library list. The data set 
organization must be vp. 

HET 

The RET parameter allows the owner of a virtual stor- 
age data set to specify the storage type, and deletion 
and access attributes of a data set: 

RET=([PiT] [CIL] [U|R]) 

The storage types are: 
P — permanent storage 

T — temporary storage 

— if neither is specified, permanent storage (P) is assumed. 

The access attributes are: 
C - delete at CLOSE 

L - delete at LO( -OFF^ 

— if not specified, deletion at LOGOFF ( L ) is assumed 
for a temporary ( T ) data set. 

— a permanent data set (P) is not deleted automatically. 

The access attributes are: 

U — read/write 

R — read-only 

— if neitlier is specified, read/write (U) is assumed. 

DCB 

A data control block (dcb) is one of the major control 
tables used for communication between tss/:j(H) data 
management and any program requiring control of a 
data set. For every ch'stinct data set reference number, 
the FORTRAN input/output routines build a dcb as it is 
encountered in executing the object program. The 
DCB is initially void, but can be filled from infor- 
mation in the ddef commands, by the i/o routines 
after the ddef command has been examined, or l)y the 
input data set labels. Therefore, any required informa- 
tion not in the ddef command is entered from one of 
these soiu'ces; in particular, record format (recfm) 
and logical record length (lrecl) take on values de- 
termined by the characteristics of an existing data set 
(disf=old) or by Fortran input/output standards 
for RECF]si=VA where lrecl is not required. The only 
dcb parameters of critical interest to the Fortran user 
are hecfm and lrecl, and the only time these aflFect 
him is when lrecl is smaller than a logical input or 
output FORTRAN rccord defined within the program. 
This condition will cause an error message. 

Aside from lrecl and recfm, the remaining dcb 
parameters can be grouped into those related to a 
DSORG of ^T (keylen, rkp, and pad) and those related 

to a DSORG of PS (dEVD, DEN, TRTCH, OPTCD, BLKSIZE, and 
IMSK ) . 



DC7^ Paramefers - RECFM, LRECL, and BLKSIZE: 
Ri'XF^r specifies tlie format or character of the records 
in the data set: 

/U[T][A!M] ] 

nrrr^, )v[BT][A|M] ! 

RECFM = < FrB|T|BTirA|Ml ( 
ID[B] I 

\\lHi'e the record Format is: 

V -— undefined-length records 

— if nsoRti is vs or vi, this means rccord size is 4096 bytes 

— if DsoRc is PS, this means records have physical boundaries 
(on a tape) and can vary in length, also known as 
hlocksize. 

V - variahle-length records (EBCDIC) 

— each record contains in the first four bytes a binary count 
of the number of bytes in the record 

— maximum data byte limit is: 

1,048,572 l)ytes for VS 

4,000 bytes for VI 

32,756 bytes for PS 

— maximum data byte limit for formatted records with VS 
is 4092 bytes. 

F — fixed-length records 

— maximum record length is: 

1,048,576 bytes for VS 

4,000 bytes for VI 

32,760 bytes for PS 

— maximum formatted record length with VS is 4092 bytes. 

D — variable-length records 

— for ASCII tapes only 

— can be specified only as a DCB subparameter of DDEF 
command. 

Where the physical attributes are: 

B —blocked records (meaningful only for Ps); the maximum 
blocksize is 32,760 bytes 
-- r^LKSizE must be an integral multiple of logical record 
length for format-F records 

T -- track overflow employed 

— applies only to disk data sets with dsorc;ps 

— may cause errors if omitted when track overflow is to be 
used for writing very long records. 

LRECL must be 4 bytes greater than the largest jot- 
matted logical Fortran record that is to be read or 
written. If defaulted for format-V records, it is as- 
sumed to be 4096 for vs and 4000 for vi. If larger vs 
records are anticipated, it must be specified by the 
user. Format- V records with a dsobg of ps are proc- 
essed with an assinned lrecl of 4096, which can also 
be raised by the user. 

When using vsam, the Fortran backspace state- 
ment may not be used to backspace a data set of un- 
defined format (recf^i=u). 

The A or M options under recfm relate to whether 
extended ansi Fortran control characters or machine 
code control characters appear as the first byte of 
every record. The A option (default value) is usually 
preferred, since most formatted Fortran records make 
use of extended ansi Fortran control character con- 
ventions. If NAMELisT records are written, the A can be 
specified ( or chosen by default ) since all records start 
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with a blank. The M option should not be specified 
unless the user has coded hexadecimal data into the 
first byte of every record. This option can be ignored 
by most users. 

bi.ksize: is required only if kecfm is fb ( fixed-length 
blocked records) and this option, in turn, is meaning- 
ful only if DSORC is ps. In this case, it must be a mul- 
tipk^ of LRECL. Otherwise, any value given is ignored 
and replaced by lrecl. 

Examjiles of how to use tlie recfm, lrecl, and 
BLKSTZE parametc^rs are sliown below (they are not 
complete ddef commands; only the dsorg and dcb 
I ) o r t i o n i s sh ow n ) . 

VS, DCB= (RECFM = F, LRECL=80) VS 80-cliaracter 

fixecl-!eiip;tli records 

VS, DCB= ( RFXFM = V) VS variable-length 

records (standard) 

VS, DCB=(RECFM,=:FA, I,;RECL=133) 

VS data set for 
listing 

VI, DCB==( RECFM z=V, RKF=4, KEYLEN=:4) 

VI variable-length 
records with 4-byte 
key in initial position 
( after 4-byte 
control word ) 

FS, DCB=:(RECFM = FB, LRECL=:100, 

BLKSIZE=1000) 

PS fixed-length 
blocked with 10 
records per block 

DCB Parameters — VI Associated: If disp=new and 
DSORG is VI, the user must specify record key position 
(rkp), key length (keylen), and optionally padding 
percent (pad). The relative key position (rkp) spec- 
ifies the displacement of the key field from the first 
byte of the logical record. Since visam records cannot 
exceed 4000 bytes, any value between and 3999 can 
be specified. The first four bytes of a format~V logical 
record are reserved for length information. Therefore, 
if recfm=v, rkp must be four bytes higher (4 < rkp 
< 3999) than for the same data set with recfm=f. 
keylen is the length in bytes of the key associated 
with a record. The maximum value is 255. 

pad specifies the percent of space (to a limit of 50 
percent) to be left available within the pages of a vi 
data set, thus providing for insertions within pages. 
The FORTRAN user can use vi data sets as output pro- 
vided he ensures that the specified key field is main- 
tained with appropriate data in collating sequence (as- 
cending) from record to record. This is most easily 
done by specifying an integer output field as in the 
following example of a Fortran program for reading 
input records and copying them to a vi data set. 

1 FORMAT (IX, 15, 6A4) 

2 FORMAT (6A4) 
DIMENSION A(6) 
1=0 



3 READ (1, 2„END=4) A 
1=14-1 

WRITE (2, i) I, A 
GO TO 3 

4 STOP 
END 

ddef commands are: 

DDEF FTOlFOOl, , DSNAME=:INPUT, DISP=OLD 
DDEF FT02F001, VI, DSNAME = OUTPUT, 

DCB=(RKPr=:l, KEYLEN=:5, RECFM=:F, 

ITlECLr=:30), DISP=NEW 

The user cannot write namelist records on a vi data 
set. The user should exercise caution in maintaining 
the key when writing unformatted records on vi data 
sets. 

DCB Parameters — PS Associated: If dsorg is ps, a 
ku'ge number of dcb parameters can be used that 
otherwise have no meaning. As previously discussed, 
the blksize parameter is required if recfm=fb. In 
addition, the parameters listed below apply. 

1. DEVD: Specifies the device on which the data set 
resides. It is not required for cataloged data sets; 
it can be one of the following: 

a. da specifies direct-access (disk formatted in ac- 
cordance with IBM System/360 Operating Sys- 
tem conventions). In this case keyxen has a 
special meaning since it specifies how many of 
the initial bytes of each record are to be written 
on tlie disk (or read from it) as a key. This con- 
dition has no connection with vi and the key 
cannot be used for random access by the For- 
tran user. If all processing is to be done on 
tfs/:j(>o, it is not necessary to use it. However, if 
a data set is to be written on a disk pack for the 
purpose of being processed on another ibm sys- 
ten (e.g., IBM System /360 Operating System), 
the use of keylen may be required. 

b. TA specifies magnetic tape. If 7- track ta|3e is 
specified in the unit parameter, den is given a 
value of 0, 1, or 2 for recording density of 200, 
556, or 800 bytes, respectively. If 7-track tape is 
to be read, trtcii can be given as C for data 
conversion, E for even parity, and T for bcdic to 
EBCDIC conversion. The defaults are odd parity 
and no translation. 

2. BUFNO:=l: Physical sequential i/o normally takes 
place with two buffers. The user can reduce space 
allocation requirements by specifying the number 
of buflfers as only one. z'\ny other value given to 
BUFNO is disregarded. 

3. OPTCD=:zW: Applies only for direct-access output, 
causes additional checking of all wTite operations. 
This will increase execution time, optcd = a is 
specified for an Ascn tape. 
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4. JMSK=code: Specifies a 4-byte liexadeclmal niim- 
ber ^viiose bit pattern indicates the system's error- 
handling procedures to be invoked. If ffffffff is 
written, the system is to apply all optional error 
recovery procedures. This is the default condition. 
If 00000000 is written, the system is to apply none 
of its optional error recovery procedures. If any 
other 4-byte hexadecimal number is written, the 
system applies its error-recovery procedures wher- 
ever a bit is set to one in i^isk which corresponds 
to an error condition. The first two bytes corre- 
spond to the first two bytes of the channel status 
word, and the other two correspond to the first two 
sense bytes. Bit positions in each byte for specifica- 
tion of system error recovery procedure are in the 
following format: 

XXXXXXXB XCXXXXXD YEFGIIIYY YYYYYYYY 

w^here a I-bit in a given position indicates that the 
system is to handle the associated error condition. 

X = System never tests this bit to determine entry 

to retry routines 
Y == Device-dependent conditions 
B = Unit exception 
C = Incorrect length 
D = Channel chaining check 
E = Intervention required 
F = Bus-out parity ' 
G = Equipment check 
H = Data check 
I = Overrun 

DDEF Summary 

Table 11 shows, for each type of data set the required 
and optional parameters for the ddef command. The 
major category is device type (direct-access or taxie), 
followed by disposition (new or old) for direct-access 
device. Data sets residing on magnetic tape are 
grouped as cataloged (cat) or imcataloged (unc), 
and labeled (lab) or unlabeled (unl). 

Sample DDEF Commands 

Commands are presented here in increasing order of 
complexity and decreasing order of likely applicability. 

1 . DDEF FT0 1 FOOl , VS^SCR ATCH 

Can apply to a program containing such statements 
as v^'BiTE (i), READ (i), REWIND 1, ctc, On a temporary 
( scratch ) data set. 

The first parameter, ftoifooi, is built according to 
the skeleton FTxxFyyy, where xx is the data set refer- 
ence number used in the program (01 in this case) and 
yyy is a sequence number (generally 001). 

vs indicates virtual sequential. 



The DSNA]\fE can be any valid name made up of 
eight-letter components connected with periods. 

2. DDEF FT03FOOI„DSXAXIE=SCRATCH.ONE 
DDEF FT()4F()0 1 „DSXA3.IE=SCRATCH.TWO 

Illustrates the use of tw^o scratch data sets, dis- 
tinguished by having different dsnaxies. 

3. DDEF n'05F()01,VS,DSNAAlE=SCRATCH,DISF=NEW 

This may be used if the data set named scbatch 
is eitlier not yet in existence or has not been cataloged. 

4. DDEF FT06F001,VS,DSNAXIE=SC;RATCH,DISP=:OLD 

This may be used if the data set named scratch is 
already in existence and has been cataloged. 

5 . DDEF J LIB, VP,DSN Al^f E = OWNER . J OBLIB,OPTION= JOB- 
LIB 

This would never be used wi'th object time i/o but 
can be applied when tlie irser w^ants to compile pro- 
grams onto a job library other than the standard user- 
iJB that LOGON suxiplies. 

Disp is defaulted to new only on the first use of the 
data set ow^ner.joblib. Subsequent action (compiling 
new members, etc) requires the same ddef command 
but DISP is defaulted to old. (Job libraries are de- 
scTibed in Appendix C.) 

6. DDEF FT()7F0C)l,VS,DSNAXfE=OUTPUT.F120,DCB= 
( RECFM==F,LRECL=120 ) 

Creates a new vs data set with fixed-length records 
of 120 bytes. The dsname can be anything; a suggested 
technique is to incorporate information defining the 
kind of data set. 

The dcb parameters appear within parentheses and 
consist of recfim, meaning record format, and lrecl, 
meaning logical record length. 

If Disp=NEW^ and no dcb parameters are given, it is 
assumed that DCB='(RECF-xr=v, lrecl=4096). If disp= 
OLD, the data set characteristics that appear in the 
data sc^t label are used. 

The above ddef command should not be used with 
Disp=OLD, since the dcb parameters may not be cor- 
rect. 

7. DDEF FT08F001,VS,DSNAXfE=OUTPUT.F120,DlSP=OLD 

This is the correct w^ay to read back the data set 
created by the last example. 

8. DDEF FT09F001,VS,DSNAXfE=DATA.V,DCB=(RECFKf=V, 
LRECL=4096) 

This has the same effect as ddef ftodfoo i „dsnaxie=z 
DATA.v, since V and 4096 are the default values sup- 
plied for RECFM and lrecl by the Fortran i/o routines. 

9. DDEF FT 1 OFO0 1 ,VI,DSNA]ME=:LIST.VIF80,DCB=: ( RECFMnr 
F,LRECL=80,RKP=0,KEYLEN=5 ) 

vi indicates virtual index sequential. This can be 
omitted if the installation-defined option is \t. 
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Table 11. DDEF Parameter Requirements by Data Set Type 
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Notes: 1. Required for RECFM=FB. BLKSIZE must be a multiple of LRECL. 

2. Specify largest V type record expected. Default values are as described in this appendi: 

3. Specify only if private volume desired. 

4. Refer to "DCB Parameters - PS Associated" irv this appendix. 

5. Specify NL for unlabeled data sets. A file sequence number may be specified, 

6. Only retention period (RETPD) may be specified. 

7. Default is 4092 bytes. 

8. Default is 4000 bytes. 

9. Only meaningful if existing data set being extended. 
10. Required for nor^VAM data sets. 

Legend: Shaded - Field not required in DDEF command 
X - Field required in DDEF command 

- Field optional 

* -IBM-supplied default 



The additional dcb parameters define a new data set 
having a sequential key in every record in the first five 
bytes. The user must make sure that the key is in 
ascending sequence (e.g., by using a format such as 
FORMAT ( 15, . . . ) and incrementing the key in the out- 
put list before each write). 

RKP means record key position relative to the first 
byte of the record, keylex means key length in bytes. 

10. DDEF FT11F001,VI,,DSNAME=LIST.\^V^DCB=( RECFM =: 
V,RKF = 4,KEYLEN = 5 ) 

This differs from sample 9 only in that it is for vari- 
able-length records, lrecl can be omitted or set as 



high as 4000, which is the maximum possible value 

for VI. 

RKP=:4 because each logical record has a four-byte 
length field that is not maintained by the user but 
supplied automatically by the Fortran i/o routines; 
it is followed by a five-byte sequential key that is 
maintained by the user. 

11. DDEF FT12F001,VI,DSNAME=LIST.VIF80 
DDEF FT13F001,VI,DSNAME=i:rLIST.VIV 

The above ddefs might be used to read back the 
data sets created by 9 and 10, respectively. 

Note how characteristics are defaulted. They will 
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be filled in from the catalog and input data set labels. 
Note also that disp in this case is defaulted to old. 

12. DDEF FT19F001,PS,DSNAME=TAPE.OS360,DCB=:(rECFM 

=FB,LRECL=:80,BLKSIZE=:S00,DE\Tl=TA ) ,UNIT= 

( TA,9 ) ,VOLUME=(prIVATe),LABEL=(,SL,RETPD=50) 

A DDEF such as this might be used to instruct the 
operator to mount a scratch tape on a 9-track drive 
(the volume identification is sent to the user after 
entry of the ddef command ) . It is written with blocked 
80-character records, at 10 records per block. The 
density, den, and trtch dcb subparameters do not ap- 
ply since 9-track tape is specified. 

Assuming the volume serial number assigned is 
00896, the next ddef may be used to read the tape 
back into a Fortran program. 

13. DDEF FT20F001,PS,DSNAME=TAPE.OS360,VOLUME= 

( ,000896 ) ,UNIT= ( TA,9 ) 

DCB parameters are not needed if the installation de- 
fault for LABEL is ( ,SL ) which has been assumed in this 
example. 

14. DDEF FT20F001,PS,DSNA^rE=TAPE.OS360 

This assumes that when 12 was created it was 
cataloged. The act of cataloging a data set makes it 
much easier to WTite ddef statements for retrieving it. 

15. DDEF FT21 FOOl ,VS,DSNAME=PRIVATE. VAM,VOLUME= 
( PRIVATE ) 

VAM data sets may be wT'itten on private volumes, 
provided the volumes are correctly formatted. The 
actual identification of the volume used is sent back 
to the user. Data set characteristics by default will be 

RECFM=V,LRECL=4096. 

16. DDEF FT22F001,VS^DSNAME = PRIVATE. VAM 

This reads back the data set created by 15. It is 
assumed that it has been cataloged. 

17. DDEF FT23F001,PS,DSNAME=DISK.OS360;DCB=(rECFM 
=:FB,LRECL=40,DEVD=DA,BLKSIZE=400 ) ,UNIT= 

( DA,2311 ) , VOLUME =(pRIVATe),SPACE= (400,500,20) 

A data set is to be written on a PS-formatted direct- 
access volume to be mounted for private use. Space is 
to be reserved for 500 blocks of 400 bytes each, each 
block containing 10 logical records of 40 bytes. Each 
secondary allocation is to be 20 blocks of 400 bytes 
each. The device type is 2311. 

18. DDEF FT24F001,PS,DSNAME=DISK.OS360 

This reads back the data set created in 17. It is 
assumed that it has been cataloged. 



19. DDEF FT25F001,PS,DSNAME=DISK.OS360 

VOLUME= ( ,05789 ) ,UNIT= ( DA,2311 ) 

This is the same as 18, but is used if the data set 
had not been cataloged. The operator must be in- 
formed of the volume identification and device type. 
All other data set characteristics will be obtained by 
tlie system from standard direct-access labels, w^hich 
must be present on all direct-access volumes. 

20. DDEF FT26F001,PS,DSNAME=BADSYS.TAPE,DCB= 

( RECFM==F,LRECL=80,DEVD=TA ) ,UNIT= ( TA,9 ) , 
L ABEL= ( ,NL ) ,V0LUME= ( PRIVATE ) 

This is not recommended unless the tape is to be 
used by another system that cannot process standard 
tape labels. 

A tape reel is to be mounted and the user informed 
of its identification. Since no labels are written, the 
characteristics of the data set and its name are not 
apparent to any program reading the tape back. 

21. DDEF FT27F001,PS,DSNAME=iBADSYS.TAPE,DCB= 

( RECF^1=F,LRECL=80,DEVD=TA ) ,UNIT= ( TA,9 ) , 
LABEL= ( ,NL ) ,V0LUME= ( 009876 ) 

This is needed to read back the tape made by 20 
(assuming that volume 009876 was assigned to it). 
Only disp=old can be defaulted since there are no 
tape labels and it was not cataloged. 

22. DDEF FT28F001,PS,DSNAME=BADSYS.TAPE,DCB= 

( RECFM=:F,LRECL=80 ) ,DISP=OLD 

This is needed to read back ihe tape made by 20, 
provided it has been cataloged, dcb parameters are 
still needed, but volume, unit, devd, and label param- 
eters are supplied from the system catalog. 

23. ddef ft29fooi,vs,dsname=: multiple. parti 

DDEF FT20F002,VS,DSNA?^'IE=MULTIPLE.PART2 
DDEF FT31)F003,VS,DSNA^IE=MULTIPLE.PART3 

The three ddef statements apply to a program that 
executes the following sequence of statemicnts *. 

WRITE (29) . . . ENDFILE 29 . . . WRITE (29) . . . END- 
FILE 29 . . . WRITE (29) 

24. DDEF FT30F001,VS,DSNAME:=MULTIPLE.PART1.V 
DDEF FT;]0F002,VS,DSNAME=MULTIPLE.PART2.F,DCB= 

( RECFM=:F^LRECL=100 ) 
DDEF FT30F003,VI,DSNAME=:MULTIPLE.PART3.VIF80, 
DCB= ( RECFM=F,LRECL=80,RKP=0,KEYLEN=5 ) 

This is similar to 23, except that the three data sets 
have different characteristics. 

25. DDEF FT31F001„DSNAME=MULTIPLE.PART1 
DDEF FT3 1 F002,,DSNAME= MULTIPLE. PART2 
DDEF FT3 1F003„DSNAME=: MULTIPLE. PARTS 
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This is similar to 23, but applying to a program that 
reads the three data sets back as follows: 



1 READ (31, END=2) 



GOTO 1 

2 READ (31, ENDr=3) 



GO TO 2 
3 READ (31, ENDi=4) 



GO TO 3 
4 STOP 



[Process MULTIPEE.PARTl] 



[Process MULTIPLE.PART2] 



[Process MIJLTIPLE.PART3] 



Error Messages for the DDEF Ccmmand 

The user's replies to diagnostic messages issued for 
his DDEF command should be guided by the following: 

1. If the diagnostic message calls for reentering an 
element within a given operand field, only that 
element should be reentered. Preceding and/or 
following delimiters are unnecessary. Default is 
acceptable. 

2. If the diagnostic message calls for reentering a 
complex operand field, the whole field should be 
reentered, including keyword and equal sign. De- 
fault is acceptable. 

3. If the diagnostic message calls for reentering an 
operand field that consists of only one element in 
addition to the keyword, the reply may be either 
the element alone, or the keyword, equal sign, and 
element. 

4. If the diagnostic message calls attention to an in- 
consistency and asks the user to (re) enter one of 
two or three specified operands, the reply must be 
a complete operand field. Default is acceptable 
only if so stated in the message. 

The user is informed if the ddef command cannot 
be completed. This can occur for one of the following 
reasons: 



1. Invalid punctuation in the operand string. 

2. Use^r's volume(s) cannot be mounted. 

3. Sufficient space cannot be allocated. 

4. More than three logical inconsistencies were de- 
tected in the ddef command. 

Whenever possible, correction and completion of the 
command is attempted. But if diagnostic messages in- 
dicate that an operand has been misunderstood be- 
cause of a punctuation error in the operand string, the 
user should interrupt the operation (by pressing the 
attention key) and reenter the corrected command. 

The user must never reenter an operand or part of 
an operand that has not been requested. 

If a keyword is missing or invalid, the pertinent 
element following it must be reentered after the cor- 
rected keyword and equal sign are typed. 

If an operand occurs twice in the operand string, 
the second occurrence is preferred. All elements be- 
longing to the earlier occurrence are erased. 

DDEF prompting messages are issued according to 
the operand information already supplied. Unneces- 
sary prompting is kept to a minimum. 

If the user's problem program is being executed in 
conversational mode and an undefined ddxame is 
referenced, prompting messages for ddef operands 
are issued to the user. 



Data Set Defimtion Rules for Language 
Processing 

Table 12 provides information relating to the organiza- 
tion of and ddef requirements for data sets involved 

in assembly, compilation, and linkage editing. 



Data Set Definition Rules for 
TSS/360 Commands 

Table 13 provides information relating to the structure 
of and ddef requirements for data sets processed by 
Tss/360 commands. 
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Table 12. Data Set Definition Rules for Language Processing 



COIMMAND 


RELATED DATA SETS 


DATA SET DEFINITION RULES 


DSORG 


FTN 
(FORTRAN) 


Source program data set 


Source program data sets: If supplied as part of 
SYSIN data set, tliese data sets do not require any 
further data set definition. If supplied as prestored 

data set, they must be cataloged. No DDEF is re- 
quired for these commands. 

Object module: The module is placed in library at 
top of program library list. If job library is to re- 
ceive object module, DDEF command is required to 
define library. 

Listing: No DDEF command required. 


VI 


Object module 


Listing data set 


ASM 
(ASSEMBLER) 


Source program data set 


VP 


Object module 


Listing data set 


VI 


LNK 

(LINK 

EDITOR) 


Source xirogram data set 


Same rules as for FTN and ASM. 




Libraries that are to 
supply object modules 


Each library referred to by INCLUDE statements 
except USERLIB and each job library used by auto- 
matic call must be defined l^y a DDEF command. 


VP 


Library to receive output 
object module 


If library at top of program library list is to receive 

output object module, no additional DDEF in this 

task. 

If another library is to receive output, it must be 

defined I)y previous DDEF command and be specified 

by its DDNAME to linkage editor. 


VP 


Listing data set 


No DDEF command required. 


VI 



Table 13. Data Set Definition Requirements for Commands 








COMMAND 


RELATED DATA SETS 


DSORG 


DATA SET DEFINITION 


BACK 


New SYSIN data set that is to con- 
trol completion of this task in non- 
conversational mode. 


VS, 


VI 


New SYSIN data set must be cataloged, or de- 
fined by previous DDEF command in conversa- 
tional portion of this task. 


CATALOG 


Data set to be cataloged. 


PS 




Data set to be cataloged must be defined by 
previous DDEF command in this task, unless 
UPDATE option specified. 


CDD 


Data set containing only DDEF 
commands. 


VI 




Data set must be cataloged, or defined in current 
task. 


CDS 


Data set to be copied: existing data 
set or member of partitioned data 
set. 


VS, 


VI 


Data set to be copied must be cataloged or de- 
fined by previous DDEF command in this task. 


Copy data set: can be data set or 
member of partitioned data set. 


vs. 


VI 


Copy data set is defined by this command. 


DATA 

(See Note 2) 


Data set to be entered. 


VS, 


VI 


No DDEF command is required if the data set 
is to reside on public storage; data follows this 
command in input stream. If the data set is to 
reside on private storage, a DDEF must be 
issued before the command. 


DEFAULT 


User profile data set in USERLIB. 


VP 




Data set must be defined in current task. 


DELETE 


Data set whose name is to be re- 
moved from catalog. 


any 




No DDEF command required for this command. 


DSS? 


Data sets whose status is desired. 


any 




Each data set whose status is to be presented 
must be cataloged; no DDEF command required 
for this command. 
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'T-dble 13. Data Set Definition Rer|uireni(;nts for Commands (continued) 



C:()MMAND 



HKLA ri' D DATA Sl'/lS 



DATA SET DEFINITION 



DTMP 



Data set to l)e printed as a remit of VI 

'Oioizram eontrol eonirnand DUMP. 



DDEF eommand whose DDNAME is PCSOUT 
must l:)e defined prior to execution of DUMP 

eommand. 



VAWY Data set to !)(> processed by the 

' See Note I ) 'I'cxt l\dilor. 



VI 



Data set must he cataloged, defined in current 

task, or defined by this command. 



ESD Drtta St. t ])vmi[ proeess(^d by the 

; See Note 2 ) Toxt luHtor, or indie ates l^KOCDEF 

C( )rumand completion. 



VI 



No DDEF command required for this command. 



FRASE 


Data set to be erased. 


VS, 


VI, 


VP 


Data set to be erased must be cataloged. 


EV\'^ 


Duta si'ts whoNC names are to be 
taitered in the catcdou;. 


vs, 


VI, 


VP 


No DDEF command required by this command. 


1-XECUTE 


SVSIX (hita set for iionconversa- 
[ion;il task >et up by tins eommand. 


VS, 


VI 




Data set must be cataloged; no DDEF command 
required by this command. 


LIMi? 


Fiiu' data sot ciintainiiea; lines to be 
lilt "tented. 


VI 






Line data set must be cataloged or defined by 
previous DDEF eommand in this task. 



' KTX ""l <)l)i( ct module to be loaded. 

: ASM I 

i LNK i 



L()AD<; User- 



written 

problem 

pr{vj;ram 



VP 



Ol>ject moduh^ to be loaded is identified by exter- 
nal name spjocafied in this command; it must be 
in a library in the current i:)rogram library list. 



MODllA 



Dal:L set to \)c chcUi'iccL 



VI 



Data set must be eataloged or defined by pre- 
\ ious DDi^I'' command in this task. 



PC^ 



Data sets wFiOst. .status is desired. 



lauh data set wdiose status is to b(^ presented 
must be catak)ged: no l^I^IiiF command re<iuired 
for this eonunand. 



PiA^Mll" 



Data s. t> h>r >\hich sharing is ner- 
mittcd. 



Data .'-•(-ts ior wliich sharing is [)erinitted must 
i)e cataloged; no DDI^F command required for 
lliis conimand. 



/()])? 



X'iitiiai ])ai"tilioned data sc^t for u'hieh 
iniorniation about its members is 



\"P 



X'irtual partitioned <kUa set mu.st be cataloged, 
or defined \)y pre\ious DDl^l^" command in this 

task. 



PKINI' 



Dat.i sft to bo in-inted. 



PS, VS, VI Delta set must be cataloged or defined by previ- 

ous DDPd-' command in this task. Data sets on 
unlal)eled tapes must be defined by a DDEF 
command. 



l^ROCDEF 



Data M't which eonsists of other 
commands, to l)ecomo a us(u--written 
pr(X'edurt\ 



VI 



Data set must l)e defined in current task. 



PROFILE 




Usor profile data sot in USFJiLIB, 

session [)rofile in task \irlual storage. 


VP 






Data sets must be defined in current task. 


PUNCH 




Data set to be piuKbicd on ca.rds. 


VS, 


VI 




Data set must be cataloged or be defined by pre- 
vious DDEF command in this task. 


REGION 
( See Note 


1) 


Data set to be processed by the Text 
Editor. 


VI 






Data set must be cataloged, or defined in current 
task. 


RELEASE 




Data set to be released. 


any 






Data set to be released must be defined in pre- 
vious DDEP" command in this task. 


RET 




VAKI data set whose data set de- 
scriptor is to be changed. 


VS, 


VI, 


VP 


Diita st4 nuLst l)e cataloged. 
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Tabic 13. Data Set Definition Requirements for Commands (continued) 



TV 



COMMAND 


RELATED DATA SETS 


DSORG 


DATA SET DEFINITION 


SHARE 


Data sets for which sharing is re- 
quested. 


any 


Data sets for which sharing is requested must 
be cataloged; no DDEF command required by 
this command. 


SYNONYM 


User profile data set in USERLIB, 
session profile in task virtual stor- 
age. 


VP 


Data sets must be defined in current task. 



Physical sequential data set (from a 
VT operation) to be written on a 
VAM volume. 



PS 



Data set (input) must be cataloged, or defined 
in current task. 



VT 


VAM data set to be copied to mag- 
netic tape as a physical sequential 
data set. 


VS, 


VI, 


VP 


Data set (input) must be cataloged or defined 
in current task. 


vv 


VAM data set to be copied into 
direct access storage. 


VS., 


VI, 


VP 


Data set (input) must be cataloged, or defined 
in current task. 


WT 


Data set to be recorded on magnetic 
tape in print format. 


VS, 


VI 




Data set must be cataloged or defined by previ- 
ous DDEF command in this task. 



Note 1: These are tlie basic directive commands of the Text Editor, See Command System User's Guide for details concerning 
the data manipulation commands of this facility. 

Note 2: If the DATA command was used to create the data set within the current task, then the data set is defined as if a 
DDEF command had been issued by the user directly. If the data set is also VAM organized and resides in public stor- 
age, it is automatically cataloged. 
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Appendix F. Attention Considerations 



Interrupting Execution 

Pressing the attention button on the terminal lets the 
user interrupt the execution of programs within his 
task. The effect of the attention interruption depends 
upon the privilege class of the interrupted module, 
the nature of the module (some privileged modules 
are sensitive to attention interruptions and some are 
not), and even the language in which the source pro- 
gram is written. 

Interrupting Privileged Commands 

If ATTENTION is prcsscd during the execution of a 
privileged command imbedded within a command 
string (one or more commands in one sysin line), the 
system responds by printing an asterisk ( * ) at the 
terminal, meaning *'more commands remain to be 
processed." To display a list of remaining commands, 
the user responds by issuing string (see Table 14). 
All commands processed during or before the attention 
interruption can be assumed to have successfully exe- 
cuted if the system issues no diagnostic message. To 
resume execution of the remaining commands, the user 
may press return, or he may ignore the remaining 
commands by issuing new^ commands unrelated to the 
interruption. 

If ATTENTION is prcsscd during the execution of a 
singly issued privileged command, or during execution 
of the last command in a command string, the com- 
mand will normally complete execution and prompt 
the user to enter another command. If the attention 
interruption prevents the command from completely 
executing, however, the system issues a diagnostic 
message. 

Interrupting Nonprivileged Commands and User 
Programs 

If attention is pressed during the execution of a non- 
privileged command {all language processors, for ex- 
ample, are nonprivileged), or during the execution 
of a user's program (including Fortran library sub- 
programs), the system responds by printing an excla- 
mation point (!) at the terminal. The user may invoke 
PCS commands to display critical fields and modify 
values (see "Using the Program Control System," in 
this appendix), or, to resume processing at the point 



of interruption, he may issue go (or press the return 
key). 

Attention Levels 

When a user stops program execution by pressing 
ATTENTION, the status of the interrupted program is 
saved and can be restarted later at the point of inter- 
ruption by issuing the go command. Privileged com- 
mands cannot be restarted, however. 

Nonprivileged commands (ftn or edit, for exam- 
ple) and user-written programs coded in assembler 
language or in PL/1 can be interrupted and saved at 
10 levels: each time a nonprivileged program or com- 
mand is interrupted by attention, its status is saved 
so that it can be restarted later. 

As many as 10 such programs can be interrupted 
and saved for later execution (10 attention levels). 
attention interruptions of more than 10 nonprivileged 
programs (that is, a request for more than 10 atten- 
tion levels) will cause the status of the earliest-saved 
level to be lost. 

FORTRAN programs interrupted by attention can 
be saved, too, but only one Fortran program can be 
saved: calling a second Fortran program wtII cause a 
FORTRAN program previously saved at any level to be 
lost. 

Using The Program Control System (PCS) with 
ATTENTION 

User-written programs may be interrupted during exe- 
cution by pressing the attention key. The interrupted 
program and all related data sets are frozen when the 
attention interruption is received. Using pes com- 
mands, the user can inspect any portion of the object 
module, he can display or modify the values of vari- 
ables, registers, or object code, and resume execution 
using the values he has modified. 

See Appendix B, "PCS and FORTRAN Object Pro- 
grams," in this book, for further information about 
using the Program Control System. For complete in- 
formation about using pes commands, see Command 
System Users Guide. 

Responding to Attention Interruptions 

Table 14 shows how the user can make full use of the 
multi-level attention handhng capability of tss/360. 
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Table 14, Responding to Attention Interruptions 



When the ATTENTION key is pressed, the system 
responds with one of three condition symbols: 



By these actions, the 
user calls for the system 
reaction listed in the 
block under the 
corresponding 
condition symbol: 



! (to denote the 
interruption of 
nonprivileged 
programs or 
commands) 



* (to denote the 
interruption of 
an unfinished, 
privileged 
command string) 



, or user s 

command prompt 
(denotes completion 
of program or 
command string) 



By issuing the GO 
command . . . 


the current user 

program Is 
resumed 




the most recently interrupted user program is resumed and 
intervening command strings are cancelled 


By issuing any 
command , . . 


the command is 
executed 




the command is the command is 
executed and the executed 
current command 
string Is cancelled 


By pressing the 
RETURN key . . . 


the current user 
program Is 
resumed 




the current the system prompts 
command string Is the user to enter 
resumed a command 


By pressing the 
ATTENTION key . . . 


the system returns 
an exclamation 
point (nothing Is 
changed) 




the system returns the system prompts 
an asterisk the user to enter 
(nothing Is a command 
changed) 


By entering STRING 
to list remaining 
commands In an 
interrupted string . . . 


the system 
displays the 
unexecuted 
command string, 
if it exists 




the system the system returns 
displays a diagnostic 
unexecuted message 
commands In the 
current command 
string 


By entering STACK 
to list names of active 
nonprivileged programs 
(in the order in which 
they may be retrieved). . . 


the system displays the names of ac 


tive user programs at every ATTENTION level 


By entering EXIT 
to end the currently 
active program . . . 


ends the currently 
active program, 
resumes command 
string if It exists 




ends the most recently interrupted program and resumes 
Its associated command string, cancelling subsequent 
command strings 


By entering RTRN 
to cancel command 
strings and user 
programs at every 
attention level . . . 


command strings and user p 


rograms 


are cancelled by the system at every ATTENTION level 


By entering PUSH 
to save the status of 
the currently active 
program 


the system saves the status 


of the currently active program in ISA Long Save 1 (ISALSl) 
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Appendix G. Command Formats 



This appendix explains the notation used in command 
descriptions and presents the general form of each 
Tss/360 user's command. 

The command language statements given in this 
appendix and in Appendixes A and E use the conven- 
tions given below in their notation. 



Operands 

A positional operand is represented by: 
value-mnemonic or o|3erand-name 
In the first case, the user writes only a value of one 
of the forms specified by the value mnemonic. In the 
second case, the operand name is merely a means of 
referring to the operand in the format description; 
the hyphen simply separates elements of the operand 
description and is not written in the actual operand. 
A keyword operand is represented by: 

KEYWORD=value-mnemonic or KEYw^ORD=:operand 
name 

The user first writes the keyword and the equal sign, 
and then either a value of one of the forms speci- 
fied by the value mnemonic, or an operand name, as 
required. 

The following general rule applies to the interpreta- 
tion of operand representations in a format description: 
when the operand is written, anything shown in upper- 
case letters must be written exactly as shown; any- 
thing shown in lower-case letters is to be replaced with 
a value provided by the user. Thus, in the case of a 
keyword operand, the keyword and equal sign are 
written as shown, and the value mnemonic is replaced. 
In the case of a positional operand, the entire operand 
representation is replaced. 

Some operands are not represented in format de- 
scriptions by operand names or value mnemonics. In- 
stead, they are represented by one or more upper-case 
character strings that show exactly how^ the operand 
should be written. These character strings are called 
coded values, and the operands for which they are 
written are called coded value operands. 

A coded value operand results in either a specific 
value parameter or a specific sequence of executable 
instructions. 

When a positional operand can be written as only 
one coded value, the operand is shown simply as the 



coded value; an additional lower-case operand name 
is not used. For example, a positional operand could 
be represented by: 

MYDATA 

A keyboard operand could be represented by: 

KEYWORD =:MYDATA 

If a positional operand can be written as any one 
of two or more coded values, an additional lower-case 
operand name may or may not be used. The choice of 
which is done is determined by whether or not a name 
can be meaningfully used to refer to all values of the 
operand. For example, a positional operand could be 
shown as either of the following: 

{xl[sl} 
mode-{NL|sL} 

In both of the above examples, the braces indicate 
that the coded values are grouped together in one 
operand representation, and the vertical stroke in- 
dicates that either one of the coded values can be writ- 
ten. The braces and vertical strokes are metasymbols. 



Mefasymbols 

Metasymbols are symbols that convey information to 
the programmer, but are not written by him. They as- 
sist in showing the programmer how and when an 
operand should be written. The metasymbols used in 
this publication are: 

1. I This is a vertical stroke and means "or." For ex- 
ample, A|B means either the character A or the 
character B. Alternatives are also indicated by 
being aligned vertically (as shown in the next 
paragraph ) , 

2. {} These are braces and denote grouping. They 
are used most often to indicate alternative op- 
erands. For example: 

{nl|sl} 

The two examples above are equivalent; either nl 
or SL must be written. 

3. [] These are brackets and denote options. Any- 
thing enclosed in brackets can be either omitted 
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or written once in the command. For example: 

[NL] 

[nlIsl] 

NL ■ 
SL 

The second and third examples above are equiv- 
alent; NL or SL or neither can be written. The under- 
lining indicates that, if neither is written, sl is 
assumed. Braces used for grouping inside brackets 
are redundant. 

. . . This is an ellipsis. It denotes occurrence of 
the preceding syntactical unit one or more times in 
succession. A syntactical unit is any combination of 
operand representations, commas, parentheses, and 
metasymbols, enclosed in braces. For example: 



{symbol,} . . . 

The above example indicates that a symbol fol- 
lowed by a comma can be written any number of 
times, but it must be written at least once. The 
braces denote grouping, and are the extremities of 
the syntactical unit to which the ellipsis refers. 



General Forms 

Each of the xss/seo user's commands is shown below 
in its general form. Detailed specifications for these 
commands are given in Command System Users 
Guide; this list is intended for quick reference only. 
Note that only the basic form of the ddef command 
is given; the full form appears in Appendix E. 



OPERATION 



OPERANDS 



ABEND 



OPERATION 



OPERANDS 



ABENDREG 



OPERATION 



OPERANDS 



ASM 



NAME = module name 



,STOREDi= 



IN 



[,MACROLIB=( (data definition name of symbolic portion, data definition name of 

index portion} [,...])] [,VERID = version identification] 

[,ISD={Y|N}] [,SYMLIST={Y|K}] [,ASMLIST= {Y|N}] 

[,CRLIST={Y|N}] [,STEDITr={Y|N}] [,ISDLIST={Y|N}] 

[,PMDLIST={Y|N}] 

[,LISTDS = {Y|N}] 

[,LINCR=:( first line number, increment)] 



OPERATION 



OPERANDS 



AT 



instruction location [,...] 



OPERATION 



OPERANDS 



BACK 



DSNAMEmdata set name 



OPERATION 



OPERANDS 



BEGIN 

Note: For 
MT/T use only 



application name [application parameters] 
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OPERATION 


OPERANDS 


BRANCH 


INSTLOC=: instruction location 




OPERATION 


OPERANDS 


BUILTIN 


NAME = command name, [,EXTNAME=:BPKD macro instruction name] 
[,DSNAME = data set name] 




OPERATION 


OPERANDS 


c 






OPERATION 


OPERANDS 


CA 






OPERATION 


OPERANDS 


CALL 


rxTATk^T- (entry-point name) . i i x n 
[NAME= 1 module name | [.module parameters]] 




OPERATION 


OPERANDS 


CANCEL 


BSNi= batch sequence number 


Form 1 


OPERATION 


OPERANDS 


CATALOG 


DSNAME^current data set name [,STATE = {N|U}] 
[,ACC={R|U}] [,NEWNAME=new data set name] 


Form 2 


OPERATION 


OPERANDS 


CATALOG 


GDG=: generation data group name, 
GNO=number of generations [,ACTION=:{A|0}] 

[,ERASE=r{Y|N}] 




OPERATION 


OPERANDS 


CB 






OPERATION 


OPERANDS 


CDD 


DSNAME=data set name 


[data definition name 1 
' |(data definition name, . . .)) 



Appendix G: Command Formats 153 



OPERATION 



OPERANDS 



CDS 



DSNAME1 = input data set name [(member name [,...])] 
,DSNAME2=rCopy data set name [(member name)] 

'ERASE={YIN}] 

", JCOPYBASErz first line number [COPYINCR=: increment]] ' 
|REPLACE = {R|I} I 



OPERATION 



OPERANDS 



CLOSE 



[DSNAME=data set name] [,TYPE=T] 
[,DDNAME=data definition name] 



OPERATION 



OPERANDS 



CHGPASS 



[password] 



OPERATION 



OPERANDS 



CONTEXT 



[Nl restarting position] [,N2 = ending position], 
STRING1 = search string [,STRING2=: replacement string] 



OPERATION 



OPERANDS 



CORRECT 



[Nl restarting line] [,N2 = ending line] 

[,SCOL-first column] [,CORMARK = correction markers] 

[,CHAR={C|M|H}] 



OPERATION 



OPERANDS 



DATA 



DSNAMEzedata set name 

FTN 
CARD 
,RTYPE=^ S 



JI 1 [,BASE= first line number, INCRr= increment] 

I LINE] 



OPERATION 



OPERANDS 



DDEF 



DDNAME=data definition name [,DSORG={VI|VS iVP}] 
,DSNAME=data set name 



OPERATION 



OPERANDS 



DDNAME? 



[JOBLIB=:{Y|i\}] 



OPERATION 



OPERANDS 



DEFAULT 



{operand = [value] } [,...] 



OPERATION 



OPERANDS 



DELETE 



[DSNAME=:data set name] 
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OPERATION 



OPERANDS 



DISABLE 



OPERATION 



OPERANDS 



DISPLAY 



fdata fie^cl or expression [, 
I ID? data field name 



OPERATION 



OPERANDS 



DMPRST 



FROMDEV= {231 1 =2314|2400}, 
FRVOLID=:z{volidi( volid [,volid] )}, 

TODEV=:{2311 23I1|2400} 

[,TOVOLID= }volid| ( volid[,volid ) PRIVATE)! 

[,NEWVLID= volid] [,WRITCHK= {YESINO}] 
[XABEL={RETAIK|NO)] [;|,RUKMODE = {BACK:'FORE} 



OPERATION 


OPERANDS 1 


DSS? 




MAHfTTc [data set name 1 
NAMES= -{(data set name,...)} 





OPERATION 



OPERANDS 



DUMP 



fdata field or expression [,...]] 
|ID? data field name } 



OPERATION 



OPERANDS 



EDIT 



DSNAME = data set name [(member name)] [, RNAME=:z region name] 
[,RECSIZE=: region name length] 



OPERATION 



OPERANDS 



ENABLE 



OPERATION 



OPERANDS 



END 



OPERATION 



OPERANDS 



ERASE 



[DSNAME = data set name] 



OPERATION 


OPERANDS 


EVV 


DEVICE = deviee type 


VOLUMEz 


= (volume serial number [, . 


■ ■] 



OPERATION 



OPERANDS 



EXCERPT 



DSNAME^idata set name [{member name)] 

[,RN AM E=: region name] 

f,Nl=: starting line [,N2 = ending line]] 
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OPERATION 



OPERANDS 



EXCISE 



[Nl = starting line] [,N2 mending line] 



OPERATION 



OPERANDS 



EXECUTE 



DSNAME=data set name 



OPERATION 



OPERANDS 



EXHIBIT 



OPTION = 



jBWQ [,TYPE = {ALL|BSN-number}] 

|UID L TYPE=r{ALL|CONV|BACK|UID userid}] 



OPERATION 



OPERANDS 



EXPLAIN 



MSGID 
ORIGIN 

word 

TEXT 

RESPONSE 

MSGE 

MSGS 



[,message identification] 



OPERATION 



OPERANDS 



FTN 



NAME = module name 



,STORED= I^J. 



[,VERID= version identification] [,ISDz={Y|N}] 
",SLIST=:{Y|N}] [,OBLIST=:{YlN}] [,CRLISTr::{Y|N}] 

,STEDIT={Y|N}] [,MMAP={Y|N}] [,BCD={Y|N}] [,PUBLIC={Y|N}] 

,LISTDS=:{Y|N}] 

LINCR=: ( first line number, increment )] 



OPERATION 



OPERANDS 



GO 



OPERATION 



OPERANDS 



IF 



condition 



OPERATION 



OPERANDS 



INSERT 



[Nl=preceding line] [,INCR = increment] 



OPERATION 



OPERANDS 



JOBLIBS 



DDNAMEr=data definition name 
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OPERATION 



OPERANDS 



OPERATION 



OPERANDS 



KA 



OPERATION 



OPERANDS 



KB 



OPERATION 



OPERANDS 



KEYWORD 



[COMNAME = command name] 



OPERATION 


OPERANDS 


LINE? 


DSNAME==:data set name 


f line number ^ 

A U, . . .] 

L ( first line number, last line number ) J 





OPERATION 



OPERANDS 



LIST 



[NI=(starting position;CLP|LAST}] [,N2 = {ending position |LAST}] [,CHAR=:{C|H M}] 



OPERATION 



OPERANDS 



LNK 



NAME=module name [,STORED=:{Y|N}] 

[,LIB=i:data definition name of library] [,VERID inversion identification] 

[,ISD={Y|N}] [,PMDLIST={Y|N}] 

[,LISTDS=:{Y|N}] 

[,LINCRi=( first line number, increment)] 



OPERATION 



OPERANDS 



LOAD 



[N AM Ezi= entry-point name] 



OPERATION 



OPERANDS 



LOCATE 



[Nl=: starting position] [,N2=: ending position] 
[, STRING 3= character string] 



OPERATION 



OPERANDS 



LOGOFF 
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OPERATION 



LOGON 



OPERANDS 



user identification, [password] , [addressing] , [charge number] 
, [control section packing] , [maximum auxiliary storage] 
, [pristine], [user IVM] 



OPERATION 



OPERANDS 



MCAST 



[ECB = end-of-l)lock character] 

[,CONT = continuation character] 

[,CLP=: break character] 

[,TRP=: transient statement prefix character] 

[,RCC =: concatenation character] 

[,SSM = system scope mask] 

[,USM=:user scope mask] 

[,KC = key] )oard/ card reader character] 

[,RS = carriage return supression character] 

[,CP = command-i^rompt string] 



OPERATION 



OPERANDS 



iMCASTAB 



[INTHAN=:{Y|N}] [,OUTRAN= {YLN}] 



OPERATION 


OPERANDS 


MODIFY 


SETNAME = data set name [,CONF=R] 

[,LRECL = record length, KEYLEN = keylength, RKP = key displacement, 

RECFM = {VIF}] [,FTN=:{Y|N}] 



OPERATION 



OPERANDS 



NUMBER 



[Nli= starting line] [,N2 = ending line] 
[,NBASE=:base number] [,INCR = increment] 



OPERATION 


OPERANDS 


PC? 




xTA^^T-o (data set name ] 

NAMES = T / 1 ^ ^ \> 

[{ data set name, . . ./) 





OPERATION 



OPERANDS 



PERMIT 



DSNAME=:{data set namej^ALL} 
[,USERIDn:{(user identification [, . . .] ; 



^\LL}] [,ACCESS=={R|RO|RW|U}] 



OPERATION 



OPERANDS 



PLI 



[NAME=:module name] [,PEIOPT = compiler option list] 

[,PLCOPTi= language controller options] [,SOURCEDS=:som'ce data set name] 
[,MERGELST = converter input hst] [,MERGEDS = converter input data set] 
[,MACRODS = intemiediate data set name] [,PRVDS = data set name] 



OPERATION 


OPERANDS 


POD? 


[PODNAME = data set name] [,DATA=:Y] [,ALIAS = Y] 


,MODUEE= {"I 





OPERATION 



POST 



OPERANDS 
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OPERATION 



OPERANDS 



PRINT 



DSNAMEmdata set name [,STAETNO=first byte position] 

[,ENDNO=last byte postion] 



r^PRTSPr:: 



EDIT 



2^ [,HEADER=:H] [,LINESz=lines per page] [,PAGE = P] 

U3J 

ERASE=:{Y|N}1 [ERROPT={ACCEPT|SKIP|END}] 
[,FORM = paper form] f,STATION=: station identiHcation] 



OPERATION 



OPERANDS 



PRMPT 



MSGID = message identification 
[,{INSERTn = inserted characters) [,...]] 



OPERATION 


OPERANDS 


PROCDEF 


NAME = procedure name [, DS NAM E=: data set name] 



OPERATION 



OPERANDS 



PROFILE 



CSW={N|Y} 



OPERATION 



OPERANDS 



PUNCH 



DSNAIVfE=:data set name 

[„STARTNOr= first byte position] [,ENDNO=last byte position] 

[,STACK=r{ll2|3|EDIT)] [,ERASE=:{YiN}] [,FORMr= card stock] 



OPERATION 



OPERANDS 



QUALIFY 



MNAMErr [link-edited module name.] object-modtde name 



OPERATION 



OPERANDS 



REGION 



[ PiiS AME =: region name] 



OPERATION 



OPERANDS 



RELEASE 



DDNAME=data definition name [,DSNAME=: data set name] 
[,{SCRATCH|HOLD}] 



OPERATION 



OPERANDS 



REMOVE 



Jstatement number [,...] 

Iall 



OPERATION 



OPERANDS 



RET 



DSNAME = data set name, 
,RET={P|T} {LlC} {UIR} 
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OPERATION 



OPERANDS 



REVISE 



[Nl=: starting line] [,N2 sending line] 
[,INCR = increment] 



OPERATION 



OPERANDS 



RUN 



[LOC=:€mtry point name] 



OPERATION 



OPERANDS 



SECURE 



J(TA=nnmber of devices, [type of device] )1 r 
|(DArznumber of devices, [type of device])] ' 



..] 



OPERATION 


OPERANDS 


SET 


{data location = value} [,...] 



OPERATION 



OPERANDS 



SHARE 



DSNAME=:data set nam^\ rSIsRID = owner's user identification] 
[,OWNERDS = (owner' .Jata set name|*ALL}] 



OPERATION 



OPERANDS 



STET 



OPERATION 



OPERANDS 



STOP 



OPERATION 



OPERANDS 



SYNONYM 



{term= [value] } [,...] 



OPERATION 



OPERANDS 



TIME 



[MINS = minutes] 



OPERATION 



OPERANDS 



TV 



DSNAMElmtape data set name 

[,DSNAME2 = VAM data set name] 



OPERATION 



OPERANDS 



UNLOAD 



[NAME = entry-point name] 
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OPERATION 



OPERANDS 



UPDATE 



OPERATION 



OPERANDS 



USAGE 



OPERATION 



OPERANDS 



VT 



DSNAME1 = VAM data set name 
[,DSNAME2=:tape data set name] 



OPERATION 



OPERANDS 



vv 



DS NAME 1 = current data set name 
[,DSNAME2rznew data set name] 



OPERATION 



OPERANDS 



WT 



DSNAME=: current data set name [,DSNAME2z=:tape data set name] 
[,VOLUMEr=:tape volume number] [,FACTOR=: blocking factor] 

[,STARTNO=:Brst byte position] [,ENDNO=last byte position] 
[,PRTSP={112|3|EDIT}] [,HEADER = H] [,LINESi=lines per page] 
[,PAGE=P] [,ERASE = {Y|N}1 



OPERATION 



OPERANDS 



ZLOGON 
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Appendix H: Carriage and Punch Controls 



The carriage and punch controls shown in Tables 15 
and 16 are recommended as standard; four of them 
are standard Fortran control characters. *They are in- 
stallation variable, however, depending upon system 
output routines and, for carriage control, the printer's 
carriage control tape. 

In conversational mode where sysout is the user's 
terminal rather than an offline printer, all carriage 
control characters other than and 1 cause a single 
line skip to occur prior to printing of the line. The 
carriage control character causes an additional line 
skip prior to printing of the line, as with offline printer 
processing. The carriage control character 1 causes 
three lines to be skipped prior to printing of the line. 

Table 15. Carriage Control Characters 



FUNCTION 


CHARACTER 


•Skip no line before printing 


+ 


**Skip 1 line before printing 


blank 


*Skip 2 lines before printing 





Skip 3 lines before printing 


_ 


*Skip to channel 1 before printing 


1 


Skip to channel 2 before printing 


2 


Skip to channel 3 before printing 


3 


Skip to channel 4 before printing 


4 


Skip to channel 5 before printing 


5 


Skip to channel 6 before printing 


6 


Skip to channel 7 before printing 


7 


Skip to channel 8 before printing 


8 


Skip to channel 9 before printing 


9 


Skip to channel 10 before printing 


A 


Skip to channel 11 before printing 


B 


Skip to channel 12 before printing 


C 


^Standard FORTRAN control characters. | 


Table 16. Punch Control Characters 


FUNCTION 


CHARACTEH 


Select punch pocket 1 


V 


Select punch pocket 2 


w 



*As used in this book, "FORTRAN control characters" 
refers to tlie control characters defined by American National 
Standard FORTRAN, ANSI X3.9-1966. 
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Appendix L Sample Program 



Part One — Nonconversafional 

In part one of this appendix, a user enters a program, 
CONV, to read matrix A and matrix B as input. The 
product, matrix C, is then computed and all three 
matrixes are printed as output. The matrices are real 
and stored a column at a time (i.e., the leftmost sub- 
script varying most rapidly ) in order to minimize the 
amount of storage "paging" required. The card listing 
for CONV is shown in Figure 25. The program compiles 
without error and is executed. 

After the compilation has been completed, the user 
receives a compilation listing, shown in Figure 26, and 
a SYSOUT listing, shown in Figure 27, which includes 
the commands, system messages, and three matrices 
A, B, and C. 



LOGON ADUSERID,&0&CCT29 

FTN NAME = COhiV, ISD = N 

: MATRIX MULTIPLICATION EXAMPLE 

DIMENSION At 8,81 ,BC8,8),C(8,8I 

DATA C/64*C.G/ 

REA0(2,1) L,^«,N 

DO 10 J = l,'' 
10 READC2,2) J A( J, H,I=IfL} 

DO 20 J=1,N 
20 ReAD»2,2J (B(,J, n,I = lfM) 

00 30 K=1,W 

DO 30 J=1,N 

DO 30 I=l,L 
30 CC It J^=Cr I»J)+A!I,KI*B(K, Jl 

DO 40 J=1»H 
40 WRITE(3,3) t A C J, U , I = l,L ) 

WRITE (3,41 

00 50 J=1,N 
50 WRITEC3.3J ( B C J , 1 1 , I = 1 • M) 

WRITE 13, 5J 

00 60 J=1,N 
60 WRITEC3*3) {C C J^ I K I =1* L ) 

STOP 

1 FORMAT (312) 

2 FORMAT <8F10.01 

3 FORMAT (• NSFIO.S) 

4 FORMAT (14X,«XM 

5 FORMAT fl4X,« = M 
END 



RUN CONV 

3 3 3 

5. 

5. 

7.0 

51 . 

37. 



11 , 
13. 
17. 



[ . 



19.0 
23.0 
29. 

5 9.0 
61.0 

6 7.0- 



'^ENO 

LOGOFF 



Figure 25. Card Listing for CONV 
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VERSION 07/10/67 OF THE TSS FORTRAN COMPILER ENTERED 






PAGE 001 


THE MODULE NAME 


AND VERSION FOR THIS COMPILATION ARE CONV 


,vs 






OPTIONS—PUBLIC 


CSECTIMJ.BCO MOOE.'NI ,PRODUCE ISDINJ. LISTINGS — SOURCE (Y ), OBJECT ( N K CROSS REFi N ). SYMBOL TABLE C N) ,-E NORY m&p(|m). 


CONV fV5 








PAGE 002 


100 c 


MATRIX MULTIPLICATIOK EXAMPLE 








200 


DIMENSION A(8,eJ,Bf 8,8),C(8t8) 








300 


DATA C/64*0.0/ 








400 


READ{2,1} L,M,N 








500 


00 10 J=1,M 








600 10 


REA0C2,2} lAC J, n,I = l,L! 








700 


DO 20 J=1,N 








8C0 20 


READJ2,2> (8IJ. 1)^1=1, M) 








900 


00 30 K=ltM 








1000 


DO 30 J=1,N 








1100 


DC 30 1=1, L 








1200 30 


Cf I.J3=C(I,J>*AI1,KJ*B(K,J) 








1300 


DO 40 J=1,M 








1400 40 


WRITE{3,35 (A( J, II, 1=1, LI 








1500 


WRITE (3,41 








1600 


00 50 J=1,N 








1700 50 


WRITE{3»3> ret J, n, 1=1, M} 








1800 


WRITE (3,5) 








1900 


DC 60 J=l,N 








2000 60 


WRITE(3,3l (CCd, I »,I=l.L) 








2100 


STOP 








2200 1 


FORMAT (3I2J 








2300 2 


FORMAT leFlO.O) 








2400 3 


FORMAT (• •,8F10.3} 








2500 4 


FORMAT (14X,»X»I 








2600 5 


FORMAT C14X,»=*) 








2700 


ENO 








CONV 


,V5 






PAGE 003 


CONV 


SIZE 2204 BYTES 








ENTRV NAME LOC HEX 








CCNV 


00000000 








EXTERNAL 


REFERENCES 








CHCBOl 


CHCIAl CHClEl CHCIUl 


CHCIW2 






CONV#C 


SIZE 908 BYTES 07/13/67 


14:25:15 






COOE 


LOC HEX 


00000000 


SIZE 864 BYTES 




NUMERIC 


CONSTANTS LOC HEX 


00000360 


SIZE 44 BYTES 




CONV 


#V5 






PAGE 004 


CONVfP 


SIZE 1296 BYTES 07/15/67 


14:23:15 






REGISTER 


SAVE AREA LOC HEX 


00000000 


SIZE 76 BYTES 




CONVERSION CONSTANTS LOC HEX 


0000004C 


SIZE 24 BYTES 




ADDRESS 


CONSTANTS LOC HEX 


00000064 


SIZE 124 BYTES 




ALPFAMERICS LOC HEX 


00000 IPO 


SIZE 43 BYTES 




LOCAL TEMPORARY STORAGE LOC HEX 


000004F8 


SIZE 24 BYTES 




NON-COMMON VARIABLES (TOTAL) LOG HEX 


OOOOOIEO 


SIZE 79? BYTES 




CONV ,¥5 








PAGE 005 


COi'PILATION COMPLETED 









Figure 26. Compilation Listing for CONV 
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LOGON ADUSERID,ADACCT29 
FTN NAME=C0N¥ 

00N¥ 



3.000 


11.000 


19.000 


5.000 


13.000 


23.000 


7.000 


17.000 

X 

43.000 


29.000 


31.000 


59.000 


37.000 


47.000 


61.000 


41.000 


53.000 


67.000 


1279.000 


1653.000 


2121.000 


1579.000 


2045.000 


2629.000 


2035.000 


2637.000 


3393.000 



Figure 27. SYSOUT Listing for CONV 



Part Two — Conversofional 

In this part, a user writes arrd compiles a program to 
solve the same problem as solved in part one. He then 
rims it on-line. He uses his console for both inx^ut and 



output, switching it to become the equivalent of sysin 
and SYSOUT, i.e., the standard system input and output, 
as shown in Figure 28. A sample sysout listing is 
shown in part one. 



USR: 



SYS 



SYS 



(presses attention button or dials up system) 
LOGON ADUSERID,MYPASS-, ,ADACCT29 
BOOl LOGON TASKID=FFF9 07/25/68 

MATRIX MULTIPLICATION EXAMPLE 

DIMENSION A(8,8) ,B(8,8) ,C(8,8) 

DATA 0/64*0.0/ 

READ(2,1) L,M,N 

DO 10 J=1,M 

READ(2,2) (A(J,I) ,I=:1,L) 

DO 20 J=1,N 

READ(2,2) (B(J,I) ,I = 1,M) 

DO 30 K=1,M 

DO 30 J=1,N 

DO 30 1=1, L 

C(I,J)=C(I,J)+A(I,K)*B(K,J) 

DO 40 J=1,M 

WRITE(3,3) (A(J,I),I=1,L) 

WRITE (3,4) 

DO 50 J=1,N 

WRITE (3, 3) (B( J, I), 1 = 1,1) 

WRITE (3,5) 

DO 60 J=1,N 

WRITE(3,3) (C(J,I),I=1,L) 

STOP 

FORMAT (312) 

FORMAT (8F10.0) 

FORMAT (' •,8F10-3) 

FORMAT (14X,'X') 

FORMAT (14X,' = ') 

END 

The system asks whether it should continue processing. 



S,U: 


■ FTN NAME=CONV 


S,U: 


OOOOIOOC 


S,U: 


0000200 


S,U: 


0000300 


S,U: 


0000400 


S,U: 


0000500 


S,U: 


0000600 10 


S,U: 


0000700 


S,U: 


0000800 20 


S,U; 


0000900 


S,U; 


0001000 


S,U: 


: 0001100 


S,U: 


0001200 30 


S,U: 


; 0001300 


S,U! 


0001400 40 


S,U: 


0001500 


S,U 


: 0001600 


S,U; 


! 0001700 50 


S,U 


: 0001800 


S,U 


: 0001900 


S,U, 


: 0002000 60 


S,U 


: 0002100 


S,U 


: 0002200 1 


S,U 


: 0002300 2 


S,U: 


0002400 3 


S.U: 


0002500 4 


S,U: 


: 0002600 5 


S.U; 


: 0002700 



Figure 28. Conversational SYSIN-SYSOUT for CONV 
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USR : Y 

SYS : The system informs the user that it found no errors. 

S,U: PRINT LIST. CON¥{0) ,,, EDIT, ERASE 

S,U: CALL CONV 

SYS : The keyboard unlocks indicating the system will accept input data. 

USR: 3 3 3 

SYS : The keyboard unlocks indicating the system will accept input data. 

USR: 3.0 11.0 19.0 

SYS : The keyboard unlocks indicating the system will accept input data. 

USR: 5.0 13.0 17.0 

SYS : The keyboard unlocks indicating the system will accept input data. 

USR: 7.0 17.0 29.0 

SYS : The keyboard unlocks indicating the system will accept input data. 

USR: 31.0 43.0 59.0 

SYS : The keyboard unlocks indicating the system will accept input data. 

USR: 37.0 47.0 61.0 

SYS : The keyboard unlocks indicating the system will accept input data. 

USR: 41.0 53.0 67.0 

PGM: 3.000 11.000 19.000 

5.000 13.000 23.000 

7.000 17.000 29.000 

X 

31.000 43.000 59.000 

37.000 47.000 61.000 

41.000 53.000 67.000 

1279.000 1653.000 2121.000 
1579.000 2045.000 2629.000 
2035.000 2637.000 3393.000 

SYS: CHCIW STOP 

USR: ERASE SOURCE. CONV 

S,U: LOGOFF 

S , U : The system acknowledges log-off. 

Figure 28. Conversational SYSIN-SYSOUT for CONV (continued) 
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Index 



'.' ( ((iiiixalcnt to PCS statement counter) 98,103 

VCOM as a symbol 99 

<,;E\D 29,44 136 

%L - 59,60,71,75 

XEND - 130 

ABEND command , 152 

ABENDREG command 152 

& COM as-a symbol 99 

& END 130 

ASKl command 

assembler Ian guage programs 1 46, 1 52 

AT command 

description 101,102 

example 38, 17 

general form 152 

Attention button . 10,20,52,149-150 

Attention considerations 149-150 

BACK command 

continuation following 13 

data set requirements 146 

example ..-.. 14, 42 

general form 152 

Backspace 133 

Backward pointer 120 

Base register adcon ^ 87 

Basic DDEF command 134 

Basic sequential access method (BSAM) 124-125 

Batch sequence number 27 

BCD FTN command parameter 80,82 

BEGIN command 152 

Blank character 130 

Blank COMMON 123 

BLKSIZE Parameter for DDEF command 140 

BLOCK DATA Suljprogram 

example 34-35 

linkage editing 118 

listing 85 

name assignment 115-116 

Blocking records 126 

Braces '{} 151 

Brackets [] 151 

BRANCH command 

description 105 

general form 153 

BSN 27 

BSAM 124-125 

BUFNO parameter for DDEF command 141 

BUILTIN command 153 

C command 153 

CA command 14,58,153 

CALL command 

description 105 

directory of examples 17 

general form 153 

Call data definition command 
(see CDD command) 

Calling 

assembler language programs 119-123 

DVCHK , 106 

FORTRAN subroutines 121-122 

OVERFL . 106 



CANCEL command 

example 14, 59 

general form 153 

("anceling 

data definitions ■ 9 

line 20,49 

PCS statements 103-104 

Card decks from outside TSS/360 132 

Carriage control characters 31, 140, 162 

CATALOG command 

data set requirements 146 

directory of examples 14 

general form 153 

shared data sets 114 

Catalog 

access types 8-10 

data sets - 8-9 

indt^xes 3, 8-9 

prestorcd data 9 

private data set .. 41 

CB command 14, 58, 153 

CDD command 

data set requirements 146 

example 15, 46 

general form 153 

CDS command 

data set requirements 146 

description 12 

example 15, 49 

general form 154 

CF 102 

Changing 

contents of variable 104-105 

program flow 104-105 

Character constant in PCS expression 100 

Charge number 1 

CHGPASS command 154 

CLOSE command 154 

Code optimization 107 

Code file (CF) 102 

Command 

descriptions 151 

directory 14 

executing in FORTRAN programs 117 

formats 151 

language , 2 

operands 151 

parameter defaults 20 

prompting 4 

Comment line 22 

COMM,ON 

control section listing 85 

data use 123 

display 103 

efficiency considerations 108 

multiple execution Ill 

statement misuse 119 

symbol resolution Ill 

imloading lilocks 60' 

variable storage allocation 60 

variable storage size 95 

Compilation 

sample listing 164 

terminal 22 
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Compile and run 5, 26 

Compiler 

( see FORTRAN ) 

Complex numbers 120 

Constants in PCS expressions 100 

CONTEXT command 154 

Continue 

character 78 

form of CALL command 104 

compilation 23 

line 20,85 

Control character 

carriage 34,162 

Control section 

display 102 

listing 84 

name 83,99 

packing 110 

public 115 

shared 115 

Conversational mode 

processing 1 

sample program 165 

source statement correction 77 

SYSIN/SYSOUT example 163 

task initiation 2,20 

Copy data set command 
( see CDS command ) 

Copying data sets 12 

CORRECT command , 16, 154 

Correction 

DDEF command 145 

PCS statement errors 76,77 

source statement 22, 76, 77 

Creation 

generation data group 65 

job library 26 

listing data set name 24 

source data set name 49 

CRLIST FTN command parameter 81 

CRL 

( see cross-reference table ) 102 

Cross-reference listing 

description 91 

FTN command parameter 81 

sample 90 

Cross-reference table 105 

CSECT 

( see control section ) 



Data control block parameters 1 40-142, 52 

DATA command 

data set requirements 146 

directory of examples 16 

general form 154 

interruption considerations 149 

prompts 49 

Data set 

cataloging 8, 135 

creation 124 

erasing 12 

generation - 130 

indexed 49 

labels 60, 139 

name, moving 61 

name, qualifiers 8 

name, restrictions 135 

organization 6, 124 

partitioned 125, 7 

physical sequential 7,124,125 



printing 30, 31 

protection 9 

record 

( sei^ record ) 

reference^ iiumbcr 27,60 

rcmoxiii'j; c-atah)i: entry , 8 

recpiiremtiits for commands 146-147 

sliaring 9 

structure 124 

VI 125,6 

virtual iiulcx scciucntial 125,6 

\iitiial ]iartiti<)ncd 125,7 

\irtiial sequential 125,6 

\'P 125,7 

VS 125,6 

Data st't ch'finition 

description 7,146 

re([uitcmcnt,s for commands 146-147 

Data st^t uame 

description 3, 138 

list 24,123 

qualification 3 

n 'str icti( )ns 135 

source 35,49 

l^ata set (H-eani/ation 

rcHpiirt^ments for commands 146-147 

table 131 

Data .set rdfn ncc number- 27, 60 

Data set statu'^? command 
( sec DSS? command ) 

DCB 140-142,52 

i^DId'^ c(nnmand 

catal()U(Hl (lata set 40 

rorrection 145 

ddname ])arameter 7,137 

defaulting 136 

dcscii[)tion 132 

clia'^uiostic s 145 

din^'tor}' of cxam]">l(^s 14 

ircneral form 154 

iutcrchanu(\il)ility 7 

multiple execution use 60,111 

new data set 137 

old data set 137 

omission , 8 

l-)aram(4(^rs 137 

retrieving 8,46 

storing I see (T3D command) 

uncataloeed data set 60 

cldn<mic^ parameter of DDI^]F command 137 

DDNAMF:* command 154 

Debugging 36,96 

Default compilation parameters 26 

DEFAULT command , 18,146,154 

D(4'ault command parameters 20,24 

Default FTN conmiand parameters 80-82 

Default option listing 

description 83-85 

sample 84 

Defective track 133 

Define data command 
(see DDEF command) 

Defining job library 26,140 

DELETE command 

data set requirements 146 

example 63 

general form 154 

shared data set 114 

use 15 

Deletion line during DATA command 50 

Delimiters for PCS statements 114 



Index 168 



iJe-Lcrniinin.iZ ^i7e (if data set 
Di:\D parameter tor DDEF 

c-ommaiul 

De\'ice reserving 

DiaenoNtics 

( see nit^'^saues ) 
Diaunostic- messa.tres 

( >ee niessa,Li;es ) 
Dialoe wiih system 

Dial up system 

Dili ma< rc) instniLtion 

DISABLE eommand 



56 

141 
.. 9 



2 

20 

119 

16,155 

DISP parameter for DDEF command 32, 131, 135, 140 

DISPLAY command 

deseripticm 102 

example 36,17 

Utiua-al form 155 

Displaying; reeords 12 

Disposition of data sets at log-off 110 

DMPRST eommand 155 

DO loop eflieiency considerations 109 

ddname jxircuneter of DDEF command 

description 133, 134 

dsname parameter of DDEF command ... 135, 138, 145 

dsori: parameter of DDEIF command 135, 137 

DSS? eommand 

data st^t reqnircaiients 146 

example 15, 62 

155 

106 



:u^eiieral form 

Dnmmy ar.mmients in PCS command 
DUMP command 

data set rcc}uirements 

description 

example . 

txerua'al form 

dii]^lieation of svmhols 

DVCHK ' 



147 

109 

.,, 17,38, 103 

155 

112, 113, 115 
106 



E-code message 79 

EDIT command 15, 147, 155 

EDIT featnre of PRINT command 31 

efficiency ( see optimization ) 

ellipsis (...) 151 

ENABLE command 16,155 

END command 15,147,155 

END statement 23,76 

End option of READ statement 44 

END FILE statement 32, 133 

End-data-set condition 132 

End-of-data indicator 29 

Entering 

commands 4 

command sequence 13 

data 12 

source statements for punching 78 

Entry point register 120 

ENTRY statement 115 

EQUIVALENCE statement 108,119 

ERASE 

PRINT command parameter 31 

PUNCH command parameter 56 

ERASE command 

data set requirements 147 

directory of examples 15 

general form , 155 

shared data set , 114 

Erasing 

library 63 

listing data set 58 

member of partitioned data set 63 

program library list 113 



RR option 132 

RUOH parameter of PRINT command 31 

vror 
code 22,79 



I/O 

mc^ssaiics 

( se(^ messages ) 

MODU^^Y command 

noneoTixersiitional mode 

r(<c (nery procedure 
A'V eonunand 
!xce])tM;n handing 
:XCERPT command 
iXCTSl". command 
;Xl^Cl'TI^ eommand 

data set riHpiirc^ments 

example 

general form 
■xeeutabh^ statement 
;\IIIBIT eommand 
!XIT statc^ment 
iXPL.MN c-ommand 
Ixplicit symbol fjualification 
Ixponent-overflow 
Xponcnt-underflow 
Api(^ssion l"il(^ ( EF ) 
External Name List (ENL) . 
Xternal symbols 



132 



28 

,,.,. 45 

27 

155 

117, 119, 132 
16,155 

16,156 



147 

... 14,42 

156 

116 

156 

132 

156 

99 

105, 117 

105, 117 

93-94 



115, 116 



80 

139 
126, 127 

105 

105, 117 

75 

lie 



b'-eode mc^ssage 

l^il(^ siMpiencc numbc^r ., 

Fixed length record format 

Fix(Hl-]:»()int divide 

I'i xed-point ovcnllow 

I'doalinu continuation cliaracter 

1 loat i nu-jioint t omputat ions 

Moatine-iicant divide (weeption 105,117 

FORMAT statement . 14, 127 

foniiat of commands 151 

Formatted records 127 

FORMNO for PRINT command 31 

Forms of a program 56 

Forward xiointer 120 

FORTRAN CALLS 121 

FORTRAN 

card format 22 

control characters 162 

external symbols , . 99 

diagnostic messages 78,79,92 

error checking 23 

internal symbols 99 

I/O statement 8 

listings 83-91 

optimization 107, 1 10 

parameters 35,80,82 

command records 8 

restrictions 93-96 

statt^ment numbers 99 

variables, initial content 118 

FORTRAN IV library subprograms 

calling 118 

description „ 2 

list of names 92 

substitution 97 

Free form terminal entry 26 

FTN command 

data set requirements 146 

directory of examples 17 

general form 156 

p arameters 80 

FTxxFyyy 7,134 
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Full messages 20 

FUNCTION .subprogram 5,120 

GDG 65,7 

Generation data group 65,7 

Global corrections 76 

Global errors 24 

GO command 104 

descriiition 17 

directory of examples .- 17 

general format 156 

HEADER parameter of PRINT command 31 

Hexadecimal constant in PCS 

expression , 1 00 

HOLD option on DDEF command 139 

Housekeeping methods 62 

Hyphen (-) as continue character . 78 

IF command 

description 103 

example 38 

general format ,..,- 156 

Illegal address assignment 47 

IMSK parameter for DDEF command 132 

Indexed data set 49 

Input '^Output 

error mcssati;es 133 

list ... 55 

procedures 5 

statement 6 

tape 40 

INSERT command 16, 156 

Litc^ner constant in PCS exprt^ssion 100 

Inlcgcr result register 120 

Internal symbol dictionary 

creation 81 

size 96 

use in PCS 97, 110 

Internal symbols 

effect of linkage editing 99 

Interruptions 

during message printout 149 

handling 52, 132, 149 

resuming execution 36, 150 

symbolic location 98 

ISD 

(see Internal symbol dictionary) 
ISD FTN command parameter 81 

JOBLIB 

( see Job Library ) 

JOBLIB option in DDEF 

command 26, 140 

JOBLIBS command 156 

Job library 

adding 10 

contents 10 

creation , 34, 1 12 

use 10 

Job processing 44 

Joining the system 1 

K comm and 1 57 

KA command 14,58,157 

KB command 14,58,157 

KEYWORD command 157 

LABEL parameter in DDEF command 60, 146 

Library hierarchy 12 

library 

obtaining information 63 

search 12,47,48 

user ( see user library ) 



LINCR FTN command parameter , 82 

LINE? command 

data set requirements 147 

directory of examples 16 

general form 157 

Line data set 6 

Line numl>cr FTN command parameter 82 

Line number increment FTN command 
parameter 82 

Linkage 

bct\\'ecn FORTRAN and assembler language 

programs ^. , 122 

type I 119 

Linkage editor 

efficiency considerations 109, 110 

program libraries 112, 1 13 

use 117 

LIST 

command 16, 157 

data set name 24, 1 16 

LISTDS operand of FTN command .. 13,82 

Listing data set 6,24,82,83 

LNK command 157 

LOAD command 

before PCS statements 38 

BLOCK DATA subprogram 35 

CALL statement 47 

data set requ irements 147 

errors 98 

example 17,38 

general form 157 

interruption considerations 150 

object modules 120 

program with errors 28 

Load-and-run form of CALL command 104 

Local corrections 76 

LOCATE command 16,157 

Logical record 
( see record ) 

LOGOFF command 

conversational task 12 

directory of examples , 14 

general form 157 

nonconvcrsational task 13,44 

LOGON command 

conversational task 2, 20 

directory of examples 14 

general fomi 158 

nonconvcrsational task 43 

Log-on process 2,20 

LRECL parameter in DDEF 

command 131,140 

M-machine code control character 162 

MCAST command 158 

MCASTAB command 158 

MMAP FTN command parameter 81 

Magnetic tapes, 

non-TSS/360 132 

Master Index 3 

Memory map FTN command 

parameter 81 

Messages 

conversational output 79 

DDEF command 145 

diagnostic 4, 19 

option 20 

prompting 19 

response 19 

types , 19 

Metasymbol 151 

Misspelling during DATA command 49 
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Mixed arithmetic 109 

Mixed input (card and keyboard) ^ 74 

Mixed mode 13 

MODIFY command 

data set reciuirements 147 

example 16, 28 

general form 158 

Modification 

data sets 12 

source statement 28 

terminating 28 

Module name FTN command parameter 80 

Klultiple executions - Ill 

NAME FTN command parameter , 80 

NAMELIST 

indication in PSECT listing 87 

size " 103 

writing records ,,, 6,129 

END^"" . 130 

Names 

list data set . 24, 116 

qualification 113 

rules 115 

sliared data set 55 

source data set 35 

Non-COMMON variable storage size 95 

Nonconversational 

LOGON command ' --. 43 

processing 20,44,60 

program control system 98 

sample program 163-164 

SECURE requirements 143 

task initiation 20,42 

Nonexecutable statement --. 99 

NUMBER command 16,158 

Noml)cr of devices required 133 

Numerical constants indication 

in CSECT listing ^ , 87 

Object listing FTN command parameter 81 

Object module 5,22,119 

Object program module 
( see object module) 

Object time efficiency , 107 

OBLIST FTN command parameter 81 

OFF 

(see LOGOFF command) 

Operand 

keyword 151 

positional 151 

OPTCD parameter for DDEF 

command 141 

Optimization 

compiler ,..,., , 107 

page reference , 93 

unloading 110 

user program 107, 108 

Optimization table 

size 96 

OPTION parameter of DDEF 

command 140 

Order of search 112 

Output 

destination 95 

use on other system 131 

Output module listing 83,84,86,89 

OVERFL 106 



31 
. . 109 

115 
120 

87,88 

. 120 

120 



1,20 



PAD parameter of DDEF 

command 



141 



I\igc mimbcring parameter of PRINT 

command 

Page utili/ation 

Paging 

rechiction 

Parameter ar(>a 

ParamtHcr list 

indication in PSECT listing 

Uaigth : 

registtM' 

Partitioiifd data .set 

( scL' \'irtual partitioned) 

1 'assword 

PAUSE statement 

description 6 

diHcrenec b(>tvveen STOP and RETURN 117 

I'CS 

(see pfogram control system) 

PCSOl^r data set ' 98,102 

PC? command 158 

'- (e(iuivalinl to PCS statement counter) 98,103 

V FND 29,44, 136 

'; L 59,60, 71, 75 

PFHMIT command 

catalog alteration 54 

data set recpiirements . .... 147 

description 10 

<x-amplc 15,54 

general form 158 

Permitting access 54 

Pliase 2 internal table 96 

PF 

( st'(^ jM-oLirani file) 

Plusital seciucntial 

data set , '... 125 

(M-gani/ation 7 

record format 129, 131 

PLI cc.mmand , 158 

POD? cfmmiand 15, 147, 158 

Positioning statement , 133 

1H)ST conmiand 158 

Preset data table (PDT) 95 

Prcstore 

IT)DP]F commands 8 

procedure 13 

soiircf' program 28,49 

Prc^stoiccl source data set FORTRAN 

parametf t 81 

PHI NT commcUid 

data set record formats 31 

data set refpiirements 147 

d< 'St ription 12 

directory of examples 17 

U(Mieral f omi 159 

[^rioritv 1 

PKl\ -rPF option of 

DDFF command 139 

Private volume 

device allocation 9 

]ol) library 112 

moimting 9 

Privilege class 1 

PRMPT command , 159 

Probk^m program 

communication 5 

residence 10 

PROCDEF command 14, 147, 159 

PROFILE command 18,147,159 

Program 

interruption 38, 105, 117 

library , , Ill 
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manipulation 56 

module ( see object module ) 

Program control system 

command language 98 

data set printing 39 

diagnostics 105 

dynamic statement 26,98 

expressions 100 

immediate statement 36,97 

list of commands 17,97 

optimization considerations 110 

removal of alterations 37 

restrictions 110 

statement counter 98, 103 

statement number 38 

use 13,97 

% 98,103 

Program data 

end indication 44 

Program File (PF) 95 

Program library Ill 

Program library list 

description 10,26, 111, 112 

order of search 114 

removal of library 113 

Program module 

( see object module ) 

Program module dictionary size 96 

Program representation file (PFiF) 95 

Program status word 36 

Programming considerations 107 

Prompting 20,24 

Protection 

against unauthorized use 1 

storage 2 

Prototype section 

listing 84 

name ^ 116 

PS 

( see physical sequential ) 

PSECT 

( see prototvpe section ) 

PSW ' 36 

PUBLIC FTN command parameter 27,82 

Public 

considerations 115 

control section attribute 25 

volumes 9 

PUNCH command 

control characters 162 

data set requirements 147 

example 17,56 

general form 159 

prestored source statements 78 

Qualification 

data set name 3 

internal symbols 99 

names 55 

QUALIFY command 

description 101 

example 17,36,38 

general form 159 

R-value 

READ statement 

data sets 32,132 

defaulted data set 133 

DDEF command 27 

direct-access device 5 



fixed-length records 126,127 

END option , 133 

restrictions 137 

tape devices 6 

terminal 5 

variable length records 126 

Read tape command 

( see RT command ) 
Read-and-write shared data set 

access 10, 113 

Read-only 

cataloged data set access 10 

shared data set access 10, 113 

Real constant in PCS expression 100 

RECFM parameter in DDEF 

command 140 

Record 

format 124 

length 126 

structure 131 

Reference 

indication on listing 85 

resolving 47 

to subroutine 47 

REGION command \.. 16,147,159 

Register 

save area , 87 

use 120 

Relative generation name 65 

Relative reference 65 

R E L EASE com m and 

data set requirements 147 

description 16 

example 15,39,52 

general form 159 

interruption considerations 52 

job library 10 

multiple execution 60,111 

REMOVE command 

description 103 

example 17,39 

general form 159 

REPEAT command 158 

Replacing records 12 

Reserving devices 13 

Resolving external references 47 

Resuming execution after interruption 36,44,150 

RET command 159 

Retaining data sets 9, 139 

RETPD parameter of DDEF 

command 139 

Retrieving DDEF commands 9,46 

RE:TURN macro instruction 120 

Return register ..,. 120 

Revienving soiu'ce statements 28 

REVISE command 160 

REWIND statement 133 

RT command 12 

RUN command 

description 27,104 

general form 160 

Sample program 
conversational . 165-166 

nonconversational 163 

Save area 120 

Save area register 120 

Search order- 10 

Sl'XURE command 

description 9,133 

example 14,41,60 
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general form 160 

Service routines 1 

Session , 2 

SET command 

description 104 

example 17, 38 

general form ...- 160 

restrictions - 105 

Setting tab stops 49 

Severity code for compiler 

diagnostics - 79 

SHARE command 

catalog 55 

data set requirements 114, 144 

example 15, 54 

general form 160 

Shared data set 

access 10,54, 113 

authorization ..,,. 10 

coding considerations 115 

description 10 

example , 54 

libraries 113 

removal of catalog entry 8 

Significance exception 117 

SIR macro instruction 119 

SLIST FTN command parameter . 81 

SOURCE data set name qualifier 49 

Source listing 

FTN parameter 82 

sample 83 

Source program 

complex restrictions 94 

listing 83 

simple restrictions 93 

Source statement 
( see statement ) 

SPACE parameter of DDEF command 139 

Spacing option of PRINT command , 31 

SPEC macro instruction 119 

Specification exception 1 17, 1 19 

Statement 

comment 74 

committed 76 

continuation ^ 74 

END 74 

format 74,78 

initial 74 

keyboard 74, 75 

limitations 74 

line number 22,24 

number 75 

partial 76 

tentative - . 76 

Statement function expression file 95 

STEDIT FTN command parameter 81 

STET command 160 

STOP command 

description 5, 105 

example 17,36 

general form 160 

interruption considerations 149 

PAUSE comparison 117 

RETURN comparison 117 

Storage map listing 98,99 

Storage 

optimization 108 

protection 3 

Storage references indication in 

CSECT listing 84,87 

Storage specification list (SPL) 93 



STORED FTN command parameter 77 

Storing DDEF commands 46 

Stroke (1) 99 

Subprogram 

FUNCTION 5,120 

IBM-supplied 123 

name as CALL argument 122 

reference 120 

SUB.ROUTINE 5 

Subroutine calls indicated in 

CSECT listing 85,87 

SUBROUTINE subprogram 5 

Subscripted symbols 100 

Supervisor program 1 

Switching between card and keyboard 

input 58 

Symbol table edit FTN command parameter 81 

Symbol table 

listing , 89-90 

size 102 

SYNONYM command 18, 147, 160 

Syntactical errors 22 

System 

administrator 1 

catalog ^ 3 

library 10, 112 

manager 1 

resources 13 

System routine residence 3 

SYSIN 

conversational 2, 163 

description 2 

nonconversational 12-13 

SYSLIB , 10, 112 

SYSOBF 117 

SYSOUT 

conversational 163 

description 2 

noncon v^ersational 12-13 

T option in RETURN macro instruction 120 

Tab stops 26,74 

Table of Initialized Variables 89,90 

Task 1,2,12,20 

Terminal 

card reader input 50 

I/O 5-6 

keyboard input 50 

mode 58 

operation 1 

session 2 

Termination 

input line 130 

session , 4,45 

TIME command 14, 160 

Time interval 3 

Time Slice 3 

Time Stamp 81 

Track facility 120 

Triad table 

(see Optimization table) 

TV command 23,147, 160 

Type I linkage 119 



Unblocked records 
Uncataloged data sets 

erasure at log-off time 

procedure 
Undefined 

record format (U) 

references 



125 

23 
8 

126 

. 47 
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Underscore 150 

Unformatted records 

description - 6 

writing .. 130 

UNIT parameter of DDEF command 133,138 

Unlimited access 

cataloged data sets 6 

shared data sets 9-10 

UNLOAD command 

after interruption 52 

COMMON blocks 60 

efficiency considerations 110 

example , , ^ . 17,47 

FORTRAN compiler 35 

general form 160 

log-off time 39 

object module 113 

unreferenced programs 47 

Unlocking keyboard 27 

Unresolved references 114 

UPDATE command 161 

USAGE command 161 

User catalog 8 

User defined library 10 

User identification 1 

User Library 

cataloging 23 

contents 10 

description 8, 17 

organization 10 

Userid , ,. 1 

USERLIB 

( see User Library ) 



Virtual partitioned 

data set 7, 125 

displaying characteristics 63 

organization , 63 

Virtual sequential 

creation 50 

data set 6, 125 

organization 6 

record formats 126,127 

Virtual storage 

description 2-3 

structure 109 

VI SAM 

( see virtual index sequential ) 

Volseqno 

(see volume sequence number) 

Volserno 

(see volume serial number) 

Volumes 3,5 

Volume sequence number ^ 139 

Volume serial number .... 61, 139 

VOLUME parameter of DDEF command 139 

VP 

( see virtual partitioned ) 

VPAM 

( see virtual partitioned ) 

VS 

( see virtual sequential ) 

VSAM 

( see virtual sequential ) 

VT command 15,148,161 

VV command ,.,, 15,148,161 



V-vakie 

VAM 

(see virtual access method) 

Variables in array 

Variable-length parameter list 

Variable-length record foimat (V) 
VERID FTN command parameter 
Version identification 



122 



123 

120 

127 

81 

24,81 

Vertical stoke j 151 

VI 

(see virtual index sequential) 

Virtual access method (VAM) 124 

(see also: virtual index sequential; 
virtual partitioned; virtual sequential ) 
Virtual index sequential 

data control block parameters 141 

data set 6, 125 

organization 6 

record formats . 126 



\\'-Code message 

Withdrawing authorization to shared 

drtta sets 

\\\,trd boundaries twception 

Write statement 

cataloged data set 

DDl^F command . 

dcNcription 

fi\(H]-k>uet]i records 

xarialilc-lengtli reeords 

Write tape command 

( se(^ \\"r conmiand) 
\VT command 

data vet rrqiiirc^ments 

L^xamplc 



79 



10,54 
. 119 



32 

, 27 

30 

126 

126 



... 148 
17, 63 



general form 159 



ZLOGON , 14,161 
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Sungnary of Amendments 

• The description of the effect of a level-2| severity 
code "E" error diagnostic has been modified. 

• Errors in the description of the parameters required 
by SYSOBF have been corrected. 
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